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Il est difficile de taper un programme 
d’une revue sans commettre d’er- 
reurs ! Quand les erreurs sont signa- 
lées (Syntax error in.., Line does not 
exist in…..), la correction est facile puis- 
que la ligne est indiquée, mais 
lorsqu’au ‘‘point de vue”’ du CPC, le 
programme est correct, il peut en être 
tout autrement pour le lecteur : 

Si le fonctionnement du programme 
ne correspond pas vraiment au pro- 
gramme original, alors il est impossi- 
ble de retrouver l’erreur commise, à 
moins de comparer les lignes de votre 
programme avec celles du journal 
mais c’est très long et on risque de pas- 
ser sur une erreur sans la voir. 
C’est pourquoi ce programme a été 
créé ; il est à utiliser si vous ne retrou- 
vez pas VOS erreurs. 

La frappe d’un programme de votre 
journal favori (CPC) terminée, vous 
faites ‘RUN’ et là, vous corrigez tou- 
tes les erreurs signalées par le CPC en 
vous référant au journal pour compa- 
rer. Si, malgré cela, il ne tourne tou- 
jours pas, suivez cette procédure : 
— sauvez votre programme en ASCII 
grâce à l'instruction : Save ‘‘nom 
prog’’, A. 

Puis, si vous êtes sur K7, rebobinez la 
bande jusqu’au début du fichier ; 
— chargez Anti-Erreurs ; 

— entrez le nom de votre programme 
et insérez le support où il se trouve (K7 
ou disquette). 

Après quelques secondes, les numéros 
de ligne vont défiler. Vous remarque- 
rez qu’à chaque ligne correspond un 
code de 2 lettres sous cette forme : 
>XX< ; c’est le code qui va vous 
permettre de savoir d’où proviennent 
les erreurs. Pour cela, il faut que vous 
compariez les codes du journal à ceux 
de l’écran. Si un code diffère, notez 
sur papier le numéro de ligne qui cor- 


190 FOR 1=6 TO 22:READ G$:6$(1)=6$: 
NEXT 
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respond à ce code. Continuez ainsi 
jusqu’à la fin du listage. 

Le défilement terminé, recherchez 
votre programme et corrigez les lignes 
que vous avez notées en comparant 
avec le journal. Faites ‘RUN’ et 6 
miracle ! ça marche. 

Attention, lors de la frappe du pro- 
gramme à traiter, n’omettez aucun 
caractère (sauf les espaces) car Anti- 
Erreurs les prend en compte et bien 
sûr, ne tapez pas les codes de contrôle. 
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26 ‘ # # :LB 
36 ‘ # ANTI - ERREURS # LC 
4ù © # # LD 
50 ‘ # VERSION 2,8% :LE 
bë ‘ # # ©LF 
70‘ HMEMBHPHEHPHPMEMPMPMEMPMMEM LG 
Ba ‘ LH 
9ÿ ‘ (c) CFC à G. NÜE 1987 LU 
160 ‘ RE 
118 RC 
12 >RD 
130 >RE 
149 >RF 
159 ‘ >RG 
166 ON ERROR GOTO 1256 QD 
176 MODE 2 >HH 
186 DIM 6$(23) >6D 


3 


296 “ATTENTION LA LIGNE DE DATA CI- 
DESSOUS NE CONTIENT PAS TOUTES LES 

LETTRES DE L'ALFHABET ‘1 

216 DATA ALB.CDUE.F,GH,JE,L.MN, À 
DR TU, VW, K,Y,7 

226  ANTI-BUG FICHIER 

4 IF PEER (HIMEM+i)= 


256 MEMORY HIMEM-2 





316 MOVE 6, i6:DRAN 656,16 
326 PRINT TAB(Z7) ANTI-ERR 
“s CHR$ (24) : "Version 2,6" 


285: DRAN 654,385 

24,25: FRINT'CPC REVUE DE 
5 STANDARDS AMSTRAL" 

354 WINDOW 1,84,3,23 


366 M$="heaiise 





386 FOR I=i TÜ LEN(M$) 

394 F$=F+MIDS (M$. I, 1: 

466 LOCATE 70-I.5:PRINT F4 
4ié FOR T=1 TD i94 


FAR 


46ë LOCATE Z,1:PRINT'ENTREZ LE NOM 
DU FICHIER : ": 
470 INPUT “",NF$ 
486 IF NF$="" THEN PRINT CHR$(7):60 


490 LOCATE 2,3:PRINT"IMERIMANTE OÙ 


919 IF R$="I" THEN CA=8:PRINT'BRANC :X 
HEZ-LA..." ELSE 546 
926 PRINTH#8,CHR$ (27) 5 "1: CHRS (26) 


940 IF R$="E" THEN CA=6:G0TO 566 


960 CLS:LOCATE 3,3:PRINT'TANT QUE L 
E LISTAGE N'EST FAG TERMINE" 

9/4 LOCATE Z,S5:PRINT®NE PAS ARRETER 
LE MAGNETOPHONE OÙ NE" 

986 LOCATE 2,7:FRINT'PAS SORTIR LA 


970 LOCATE 2,14:PRINT"PRESGEZ UNE T : 
QUCHE POUR LA LECTURE" 
664 CALL &BROS 





#RC 


BORDER 6:INE 4,1:INE 1,16:FEN Ï >JN 


#EV 


3XÀ 
:PU 


906 R$="":HHILE R$="":RS=UPPERS CINE NE 


>AR 
IF 
AT: 
IE 
>6R 


>JW 








630 ‘€ TRAITEMENT OÙ FICHIER > RK 
640 ‘22 TA 
650 TB 
bbô OPENIN “!"4NF$ ?LF 


678 CLS:PRINT'TRAITEMENT EN COURS... JR 
686 IF LEN(AS)=255 THEN AË=""LINE :YH 
INPUT#9,B$:G0T0 116 


ë9è LINE INPUT49,B$:AS=E$ UE 
196 IF CA£>8 THEN GOSUB 1314 3VF 
716 IF INKEY(66)=6 THEN STOF HN 
128 RE 
734 CALCUL DE LA CLE DE CONTRD :TA 
LE 

744 ?TE 
758 A=0:FLG=È 2ME 
768 FOR I=i TO LEN(AS$) :FH 
778 L$=MIDS (AS, 1,1) >MÜ 
784 IF L$=CHR$(34) AND FLG=i THEN F PC 


Lb=6:G60T0 844 

796 IF L$=CHR$(34) AND FLG=9 THEN F :FD 
LG=1:G0T0 849 

896 IF L$=CHR$ (33; AND FLG<:1 THEN ?CX 
850 

819 IF Lé=CHR$(39i AND FLG=6 THEN 8 CA 
CE) 


820 IF FLG=1 THEN 846 ND 
830 L$=UPPERS (L$i 2MC 
846 A=A+AGC (L$)+1I LU 


?FB 


850 NEXT I 





NOM 
Adresse 





Code postal 





Date 
Je m'abonne à : 







PCompatibles MAGAZINE : 
ment sur les "compatibles PC". 
Attention, tous nos abonnés recoivent avant parution des souscriptions sur les nouveaux 








860 ‘ 


B76 CH$=STR$ (A) 

886 CH$=RIGHTS (CH$, LEN(CH#)-1) 
89% L=LEN(CHS#) :L2=LEN(CHS) 72 
906 A=VAL(LEFTS (CH$,L2)) 

916 C=INT(A/27) 

929 P=A-(Cx23 

36 C$=6$(P) 

949 A=VAL (RIGHTS (CH$,L-L2) ; 
956 C=INT(A/23):P=Â- (Cx37) 

56 C$=C$+6$ (P) 

978 

986 FOR I=1 TD 6 

998 Lé=MIDS (AS, 1,1) 

1606 IF L$£"O" OR L$:"9" THEN 1934 
1919 LI$=LIS+L$ 

1928 NEXT 


1638 VM$= "FOR I=1 TO LEN(ASI:IF À : 


SC(MID$(A$,1,1):€32 THEN VMS=VM#+" 
" ELSE VMS=VMS+MIDS (AS. I, 1) 

1946 NEXT I:B$=VM$ 

1959 

id6ÿ IF CAS>G THEN 1676 ELSE 1096 
1678 PRINT LI$:;TAB(I9) “2>":C$ 
1980 LI$="":G0TO 1165 


1999 LI$="":PRINTACA,LEFTS(B$,55) :T UM 


AB(97) "tic 

1196 IF LEN(B#)<55 THEN 1iéû 
1119 FG=1 

1126 B$=MIDS (B$, 56, LEN(B$) ) 


Ville 


Signature 


CR TAUU RE el ER ZI COTe)UTSS 


CPC - REVUE DES UTILISATEURS D'AMSTRAD : en vous abonnant, vous rece- 
vrez chez vous votre revue. Vous bénéficierez de réductions sur certains produits et vous 
recevrez gratuitement 1 n° hors-série tous les deux mois. 
AMSTAR : en avant première, toutes les nouveautés sur AMSTRAD -— des programmes, 
des articles |! A la demande de nos lecteurs, nous prenons désormais les abonnements. 

la référence en matière d'initiation et de perfectionne- 


livres ! 
ATTENTION | Il n'y a pas d'abonnement rétroactif. 
Q CPC AMSTRAD 11 numéros  220F 
Q 6 numéros 120F 
Q AMSTAR 11 numéros 140F 
Q PCompatibles Magazine 11 numéros  200F 
Q Arcades 11 numéros  200F 


Prénom 


Merci d'écrire en majuscules. Ci-joint un chèque libellé à l'ordre de : Editions SORACOM. 
Service Abonnement - BP 11 - 35170 BRUZ - Retournez le(s) bulletin(s) ou une photocopie. 


1136 PRINTHCA,LEFTS(E$, 55) 

1146 IF FG=1 AND CA£38 THEN Fb=û: 60 

SUB 1319:G60T0 1156 

1154 GOTO 1196 

1168 IF EOF=-1 THEN CLOSEIN ELSE 60 
TO 686 

1176 IF CA=0 THEN CALL &BBO3: PRINT 
TAB(S6) CHK# (24); UNE TOUCHE... “;CH 

R$(24) :CALL &BB6S 

1186 CLS:PRINT'MAINTENANT RECHARGE Z 
“sNF$;" ET CORRIGEZ LES LIGNES QUE 
VOUS AVEZ NOTEES. ." 

119% END 

1208 

1219 ‘ << DRE 
1229 ‘{ TRAITEMENTS DES ERREURS ? 
1230 ‘ € é 
1249 





1856 IF ERR=25 THEN CLG:FRINT CHR$( :YC 


D}; CHR$ (24); "FICHIER NON ASCII": CHR 
$(Z4):END ELSE CONT 

1368 
1270 ‘ € 
1286 ‘€ 
1290 ‘ £< 
1566 
1319 COM=COM+i:IF COM>19 THEN CALL 
RBBOS: PRINT TAB(56) “UNE TOUCHE..." 
:CALL &BB6S: CLS: COM=1 

1326 RETURN 











ATTENTE TOUCHE 














2V4 
VB 


?LG 
HD 


2RJ 


#JC 





?YE 


3YC 


VD 


3YE 


>XG 


ÀF 


?EK@ 
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). Christian KEHREN 








Turbo-Clavier, présenté ici, a pour 


but de vous faciliter la saisie de 
tous vos listings BASIC Amstrad 
464, 664 et 6128. 

Vous tapiez tous les ordres BASIC 
courant lettre par lettre ? Plus 
maintenant ! Après avoir saisi ce 
petit listing, toutes les touches du 
pavé numérique vous donneront les 
fonctions principales. 

De plus, en combinant la touche 
CTRL (contrôle) avec certaines 
lettres, vous obtiendrez tous les 
ordres d'édition et d’entrée-sortie. 
Après son exécution, Turbo-Clavier 
s’efface de la mémoire, laissant 
toute la place nécessaire à votre 
programme. 

D'après son auteur, son utilitaire a 
été testé par trois programmeurs 
pendant plus d’un an pour être le 
plus ergonomique possible. 





Espérons que vous le trouverez 
pratique et efficace. 


10 REM * UTILITAIRE CLAVIER # 
20 MODE 2:5=26:P=1: INK 1,9: IN 0,P: > 
BORDER P 

30 CLS:LOCATE 20,1:PRINT CHRS(24):" 
QUEL ECRAN VOULEZ-VOUS UTILISER : 
*;CHRS (24) :LOCATE 30,6:PRINT CHRS (2 
43" END ";CHR$(24);" - NOIR" 

40 LOCATE 30,9:PRINT CHR$(24):" [BJ 
";CHRS(24);" — BLANC':LOCATE 30,12 
:PRINT CHR$(24)5" CO) ":CHRS(24)5" 
— ORANGE": LOCATE 30,15:PRINT CHR$ (2 
4);" CV] ";CHRS(24):" - VERT" 

50 LOCATE 30,18:PRINT CHR$(24):" LC 
] “:CHR$(24);" — AUTRE COULEURS": LD 

CATE 30,21:PRINT CHR$(24);" CRETURN 
1 “;CHRS(24);" — FIN" 

60 CALL &BB18:1F INKEY(46)&>-1 THEN > 
BORDER 0: INK 0,0: INK 1,23:6070 40 


LA 


70 IF INKEY(54)€>-1 THEN BORDER 13: > 
INK 0,13: INK 1,0:G0T0 60 

80 IF INKEY(55)€>-1 THEN BORDER 9:1 > 
NK 0,9: INK 1,0:60T0 60 


>XP 


LM 


HF 


>FW 


FJ 


PC 


BD 


ZH 


90 IF INKEY(34)<>-1 THEN BORDER 15: >EH 


INK 0,15:INK 1,0:G60T0 60 
100 IF INKEY(62)>-1 THEN 700 


WE 





110 IF INKEV(18)<5-1 THEN SOUND 1,5 
0,20: SOUND 1,150,20:SOUND 1,80,30:G 
0TO 130 

120 PRINT CHR$(7):GOTO 20 

130 CLS:PRINT" ORDRES PROGRAMMES EN 
MAJUSCULE OÙ MINUSCULE ( M:MAJUSCU 
LE - MIN.: autre ): 7" 

140 CALL &BBIB:IF INFEY (38: <:-1 THE 
N CLS:60T0 426 

150 CLS 
160 KEY 
170 KEY 
180 KEY 
190 KEY 
200 KEY 
210 KEY 
220 KEY 
230 KEY 
240 KEY 
250 KEY 
260 KEY 
270 KEY 
280 KEY 


135,"goto 
136,"gosub “ 
137, "return" 
132," {for “ 
133,"to 

134,"next " 
129,345" 

130, "then * 
13i."else “ 
128,"step " 
138, "chr$(" 
139, "print" 
140, "load"+CHR$ 134) 


# 


290 KEY DEF 58,1,101,69,141:KEY 141 > 


edit ":'E 


300 KEY DEF 36,1, 108,76, 142:KEY 142 >Li 


ist ":'"t 


310 KEY DEF 69,1,97,65,143:HEY 145, 


“auto ":'À 


320 KEY DEF 62,1,99,67,144:KEY 144, HF 


“cis"s'C 


330 KEY DEF 50,1,114,82,145:KEY 145 3E 


run “R 


340 KEY DEF 35,1,105,73.146:HEY 146 : 


"call &BCOZ"+CHR$ (13) 


350 KEY DEF 66,1,115,85,147:KEY 147 5 


,"save"+CHR$ (34) 


360 KEY DEF 461,1,100,68,148:KEY 148 : 


,"cat"+CHR$ (15) 


370 KEY DEF 68,1,149,208,228:KE 14 : 


9,"locate" 
380 KEY DEF 9,1,8E0, 206,207 


390 KEY DEF 38,1,109,77,190:KEY 150 > 


"mode 


400 PRINT SPC(3)+CHR$ (24); "TURBO-CL : 


QUE 


AVIER - Version 2.3 - 1987 - KEHREN 
CHRISTIAN ":;CHR$(24):" .., a votre 
service !":PRINT 

410 DELETE 10- 

420 REM * MAJUSCULES +# 

450 KEY 135,"G0TO " 

440 KEY 136,"GOSUE " 

450 KEY 137, "RETURN" 

460 KEY 132,"FOR " 

470 KEY 133,"T0 

480 KEY 134,"NEXT" 

490 KEY 129,"IF “ 

900 KEY 130,"THEN “ 

910 KEY 131,"ELSE " 


5 





>AT 


»TC 
>NU 
>RD 
>UA 
>FA 
QC 


3MY 





920 KEY 128,"STEP " 
930 KEY 138, "CHR$(" 
940 KEY 139, "PRINT" 
990 KEY 140, "LOAD"+CHR$ (34) 


560 KEY DEF 58,1,101,67,141:KEY 141 > 


"EDIT " 


9/0 KEY DEF 36,1,106,76,142:KEY 142 ; 


s ÉIST 


580 KEY DEF 69,1,97,65,143:KEY 143, ; 


“AUTO 


990 KEY DEF 62,1,99,67,144:ÉEY 144, : 


"CLS" 


&O0 KEY DEF 50,1,114,82,145:KEY 145 » 


: u RUN u 


619 KEY DEF 35,1,105,73,146:HEY 146 :2 


,"CALL &BCOZ"+CHRS (13) 
620 KEY DEF 60,1,115,83, 
"SAVE "+CHRS (74) 


630 KEY DEF 61,1,100,68,148:FEY 148 :RK 


4" CAT"+CHRS (13) 


640 KEY DEF 68,1,149,208.22B:FEY 14 : 


9, "LOCATE" 
650 KEY DEF 9,1,8E0, 206,207 


660 KEY DEF 38,1,109,77,1S0:HEY 150 à 


, "MODE Li 


670 PRINT SPC(3) ;CHR$ (24); "TURBD-CL * 


AVIER - Version 2,3 - 1987 - KEHREN 
CHRISTIAN ";CHR# (24): .., a votre 
service !":PRINT 

680 DELETE 10- 

&90 END 

760 ‘ + Autres couleurs + 


710 CLS:LOCATE 30,6:PRINT CHR#$(24): 


“ ;CHRS(242);" ":CHRS (24); & "4CH 
RS(24);" “;CHRS (243): " “iCHRS (24); 
= STYLO" 


720 LOCATE 30, 10:PRINT CHR$(24);" 


sCHR$ (240) 5" "sCHRS (24) 5" & +CHRS( 
245" "sCHR$(241)5" "sCHR$ (24): - 
PAPIER" 


730 LOCATE 30,14:PRINT CHR#(Z4; 5" R 


ETURN “;CHR$(24);" - FIN" 


740 LOCATE 25,20:PRINT "STYLO : "5C 5 


HRS (24) : S3 CHRS (24) 3" 
CHR$ (24) ;P; CHRS (24) 


— PAPIER : "; 


1A7:ÉEY 147 : 





TJ 


750 CALL &BB18 MH 
760 IF INKEY(B)£>-1 AND S€26 THEN S NX 
=5+1:IWK 1,5 

>n6 | 770 IF INKEV(1)€>-1 AND 550 THEN S= >MV 

>qP | 5-1: INK 1,5 

swD | 780 IF INKEY(O)€>-1 AND P£26 THEN P 22Y 

>Nu | =P+1:INK 0,P: BORDER P 

:PJ | 790 IF INKEV(2)€>-1 AND P>0 THEN P= >vX 

LC | P-1:INK 0,P: BORDER P 

:6H | 800 IF INKEY(18)€>-1 THEN 30 SV] 

>MJ | 810 LOCATE 25,20:PRINT "STYLO : "5C A] 

>FE | HRS(24):S:CHR$(24)5" — PAPIER : ‘; 

3MK | CHRS (24) ;P3CHRS (24) 

MF 620 GOTO 750 11@ 


TURBO CLAVIER 


Pour CPC 6128 et 664 


CLAVIER 


CTRL + E : Edit 

CTRL + L: List 

CTRL + À : Auto 

CTRL + C : Cls 

CTRL +l:Init. couleurs 
CTRL +S : Save" 
CTRL + D : Dir (cata- 
logue) 

CTRL + M : Mode 
CTRL +R : Run 

CTRL + ENTER : Load" 
CTRL + COPY : 
noirures graphiques 
CTRL + TAB : cœur gra- 
phique 

SHIFT + TAB : ligne gra- 
phique 


SHIFT + COPY : da- 
mier graphique 
TAB : locate 


chr$( 
step 
if 
then 
else 
for 

to 
next 
goto 
gosub 
return 


TURBO CLAVIER 


CLAVIER 


CTRL + E : Edit 

CTRL + L: List 

CTRL + A : Auto 

CTRL +C : Cls 

CTRL + |: init. couleurs 

CTRL +S$ : Save" 

CTRL + D : Dir (catalogue) 
CTRL + M : Mode 

CTRL +R : Run 

CTRL + ENTER : Load" 

CTRL + COPY : noirures graphi: 
ques 

CTRL + TAB : cœur graphique 
SHIFT + TAB : ligne graphique 


Pour CPC 6128 et 664 


SHIFT + COPY : damier graphi- 


que 
TAB : locate 


PAVE NUMERIQUE 


return 





PRINT CHR#CÇC1); 
CHR$ÇCcode ASCII) 


20 
21 
ee 
23 
24 
es 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 : 
38 


me OO © J 0 01 à 4 © Om © 
GA E500".ML=<Sse 
nm /mMNKXECC 


000081 +)tD EN+ LE TO 
TOM ZIMACHINOMEOX)D 





Voici enfin le tableau de 
référence sur les carac- 
tères de contrôle. En ef- 
fet, certains listings peu- 
vent contenir des signes 
bizarres qui vous sont in- 
connus. Reportez-vous à 
ce tableau qui sera valable 
dans tous les cas de figu- 
res. 

Le listing Intruder con- 
tient trois de ces étranges 
signes : la flèche en haut 
et flèche en bas ainsi que 
le classique contrôle X. 





Au fin fond de l'univers, une 


nouvelle bataille. vous 


attend. Seul, face à une horde 


d'envahisseurs surgis de 


l’immensité intersidérale, vous 


assurez courageusement la 
défense de votre univers. 





LISTING 1 


AH 


* 


LOADER  INTRUDER 


(c)BIGHEAD SOFTWARE 


© on BB CA I — 


# 
+ 
* 
+ 


— 


AH 


10 MODE O0: INK 0,0:BORDER 0: INK 1,15 > 


INE 3,14: INK 4,25: INK 5,10: INK 6,7 
INK 7,6:INK 8,20: INK 10,2:INK 9,26 


11 EVERY 10,1 GOSUB 500 
20 SYMEOL AFTER 22 

21 SYMBOL 68, 112,120, 108, 102, 102, 12 
6,124 

22 SYMBOL 49,112,96, 120, 120,96, 124, 
126 

23 SYMBOL 72,68, 100, 102, 126, 126, 102 
,102 

24 SYMBOL 73, 16, 24,24, 24,24, 24,24 
25 SYMBOL 78, 66, 102, 118, 126, 102, 102 
,102 


va V2 SYMBOL 85,68, 102, 102, 102, 102,126 ?ET 


FE 
FC 


> 
MN 
FU 


pr A 


DT 


EH 


D 


>ET 





THE INTRUDER 


Xavier GROSSETETE 


Du haut de l’écran apparaît le vaisseau 
mère - hors de portée - larguant suc- 
cessivement des vaisseaux rebelles qui, 
lentement, inexorablement, descen- 
dent vers vous. 

Votre tir doit être stratégique et vous 
devrez faire mouche à chaque fois 
pour arriver jusqu’au vaisseau mère. 
Ultime challenge à surmonter. 
D'une bonhe présentation avec sa 
musique rÿthmée, ce jeu reste simple 
mais très difficile à tenir au niveau 3. 
A vos joysticks ou claviers ! 

Le premier listing (optionnel) vous 
donne la page de présentation et 
charge le jeu lui-même (deuxième lis- 
ting à sauver sous le nom d’INTRU- 
DER). 

Attention aux datas de redéfinition de 
caractères, ainsi que la partie de rou- 
tines en langage machine comprise 
entre les lignes 4380 à 4470. Je vous 
conseille vivement ‘de sauvegarder 
votre travail avant de lancer celui-ci 
car, en cas d’erreur dans les datas, le 
plantage irrémédiable vous ferait per- 
dre toutes vos heures de frappes. 


26 SYMBOL 82,120, 100, 100,120, 104,10 DFZ 
2,102 
27 SYMBOL 84,126, 126, 24,24,24,24,12 BY 


,124 

40 SYMBOL 141,0,0,0,0,0,0,8, 29 

50 SYMBOL 142,0,0,0,0,0,0,0, 128 

40 SYMBOL 143,0,3,31,63, 255, 254, 248 
,240 

70 SYMBOL 144, 127,255, 255, 254, 128, 1 
28,96,31 

80 SYMBOL 145,224, 240, 252, 126, 62, 14 
,31,231 

90 SYMBOL. 146, 240,255, 255, 255, 72,35 } 
61,66 

100 SYMBOL 147,0,0,255, 255,63, 143,6 à 
4,127 

110 SYMBOL 148,15,255, 254,253, 225,1 3K 
5,121, 146 

111 SYMBOL 149,64,96, 80, 40, 20,55, 52 > 
,23 

112 SYMBOL 150,0,0,0,0,3,254,3, 254 
113 SYMBOL 151,0,0,0,0, 128, 96, 248, 1 


WG 
>XC 
?EX 
:JH 


>HL 





AE 
BY 


we] 





4 
jar SYMBOL 152,48, 48,57, 79, 244,6 


7 


115 SYMBOL 153,0, 1,255, 224 
116 SYMBOL 154,254, 252, 240, 64, 224 
120 A$=" "4CHRS(141)+CHR$ (142) 4CHR$ 
(10)+CHR$ (B) +CHRS (8) +CHRS (8) +CHRS (1 
43)+CHR$ (144) +CHRS (145) +CHR$ (10) 4CH 
RS (8) +CHRS (8) 4CHRS (8) +CHRS (146) 4CHR 
$ (147) +CHRS (148) 


121 NAVS=CHRS (149)+CHR$ (150) +CHR# (1 : 


S1)+CHRS (10) 4CHRS (8) +CHRS (8) +CHRS (B 
JHCHRS (192)4CHR$ (153)4CHR$ (154) 

130 FOR ETOILE=1 TO 100 

140 X=INT (RND#640) 

150 _Y=INT (RND+#400) 

160 PLOT X,Y, INT (RND#15) +1 

170 NEXT 


180 FOR T=i TO 5:MOVE 30,T:DRAW 610 : 


T,LENEXT 


190 FOR T=6 TO 20:MOVE 39,T:DRAH 61 : 


0,T,2:NEXT 


200 FOR T=20 TO 22:MOVE 30.T: DRAM 6 ?NK 


10,T,9:NEXT 


210 FOR T=1 TO 8:MOVE T,26:DRAU T,3 ? 


74,1:NEXT 


220 FOR T=8 TO 20:MOVE T,26:DRAN T, : 


374,2: NEXT 


230 FOR T=20 TO 22:MOVE T,26:DRAH T : 


,374,9:NEXT 


240 FOR T=616 TO 620: MOVE T,26:DRAH > 


T,374,9:NEXT 
250 FOR T=620 TO 632:MOVE T,26:DRAW 
T,374,2:NEXT 


260 FOR T=652 TO 636: MOVE T,26: DRAM :RY 


1,374, 10:NEXT 


270 FOR T=394 TO 450: MOVE 30,T:DRAH : 


610,7, 10:NEXT 
280 FOR T=382 TO 392:MOVE 
610, T,2:NEXT 
290 FOR T=378 TO 380:MOVE 
&10,T, F:NEXT 


300 X=20:F0R T=1 TO 22: MOVE T, X:DRA > 


W T,20,10:X=X-1:NEXT 


310 X=380:FOR T=1 TO 22:MOVE T, X:DR : 


AW T,380, 10: X=X+1:NEXT 


320 X=380:FOR T=618 TO 636: MOVE T,3 à 


BO:DRAN 618, X, 10: X=X+1:NEXT 


330 K=1:FOR T=618 TO 636: MOVE T,20: : 


DRAM T,X, 10: X=X+1:NEXT 
340 R=300 


341 X=0:Y=0:0RIGIN 0,0, 30,440, 30,40 >CK 


Ô 


342 1=R*2:FOR D=0 TO R STEP 4:D1=60 : 


R(Z-(D“2)):PLOT X4D,Y4D1,2:DRAW X+D 
,Ÿ-D1,6:NEXT 

343 FOR A=0 TO 200 STEP 10 

344 FLOT INT (RND#300) , INT (RND#300), 
0 

345 NEXT 


30, T: DRAM : 


30, T:DRAH : 





TZ 
IN 
3YF 


Æ 
= 


?QU 


380 PRINT CHR$(22)+CHR$ (1) >UM 
370 PEN 9 >BD 
400 LOCATE 2,9:PRINT A$ >RN 
410 LOCATE 3,16:PRINT A$ TG 
420 LOCATE 4,21:PRINT A$ ?TE 
430 LOCATE 5,13:PRINT USING"&":A$  >BA 
440 LOCATE 10,5:PRINT USING"&";NAVS DJ 
450 PEN 10:LOCATE 12,8:PRINT "THE": >WM 
PEN 12:LOCATE 10,10:PRINT “INTRUDER 

460 PEN O:LOCATE 2,25:PRINT USING"& >YT 


“sCHR$(164)+"BIGHEAD SOFTWARE“: PEN 
| 


46 FOR t=1 TO S40:NEXT t TH 
470 RUN"! INTRUDER >NQ 
500 READ B JB 
510 IF B=-1 THEN RESTORE 540:60T0 5 >D4 
00 

520 SOUND 2,B,20,15:SOUND 1,H+1,20, >YK 
15:SOUND 4,B+2, 20, 15 

530 RETURN >1D 


540 DATA 190, 175,169, 159,190, 179,16 >NV 
9,159,95,95, 106, 0, 106, 95,95, 106, 119 
,127,119,127,142, 106, 127,159, 190, 17 
9,169,159, 190, 179, 169, 159,96, 96, 106 
,119,159,190, 159, 190, 239, 142, 179,21 
3,179,213,253,239,-1 





LOT LA 
20 ‘+ ?LB 
30 ‘+ THE INTRUDER * ?LC 
40 ‘+ L >LD 
50 ‘+ (c) BIGHEAD # ?LE 
60 ‘+ SOFTWARE  # ?LF 
70 ‘+ 1987 * ?LG 
80 ‘+ # >LH 
QÙ HAN #UJ 
100 TAGOFF:PRINT CHR$(23)+CHR$ (0) BB 
110 MODE 0 >GK 
120 T1$="Z"+CHRS (242) : T2$=CHR$ (243) UD 
+"X":F$="ESPACE" 

130 GOTO 1630 ?FB 
140 INK 0,0:BORDER 0 >NA 
150 MODE O:SPEED INK 50,50 ?TY 
160 FOR 1=1 TO 15:INK I,O0:NEXT I >Y4 
170 GOSUB 400 )HB 
180 ‘HIHI )RK 
190 ‘+ DECORS + TA 
200 ‘HN RC 


210 FOR y=80 TO 350 STEP 5:PLOT RND >JJ 
4638,y,9:1F RND}=0.5 THEN color=4:P 
LOT XPOS+color,y,10 ELSE color=-4:P 


LOT XPOS+color, y, 10 

220 NEXT >DK 
230 PRINT CHR$(22)+CHR$ (1) UF 
240 PEN 13:LOCATE 1,22:PRINT STRING ?UN 
$(20,CHR$ (214) ) 

250 PEN 2:LOCATE 1,22:PRINT STRINGS >TT 
(20,CHR$ (215) ) 

260 LOCATE 1,25:FOR i=248 TO 253:PR >MD 
INT CHR$(I)::NEXT:PEN 9:PAPER 0 

270 PEN b:LOCATE 13,25:PRINT USING“ >WN 
&"s "INTRUDER": : 

280 LOCATE 1,1 >PG 
290 PRINT CHR$(22)+CHR$ (0) >UL 
300 INK 1,6:INK 2,11: INK 3,3:INK 4, >PG 
15: INK 5,18: INK 6,11:INK 7,22:INK 8 
+20: INK 9,26,0:INK 10,0,26: INK 13,2 
INK 14,26: INK 11,26: INK 15,0 


310 LOCATE 1,1 >PA 
320 GOSUB 4420 >PG 
330 x=300 >CH 
340 cx=8 IF 
350 x1=8 >XJ 
360 B=0 ?NC 
370 c=-5 )VC 
380 po=62999 ?DE 
390 GOTO 720 1H 
AOÛ HIHI PPOENPET >RE 
410 ‘+ REDEFINITION CARAC.# ?RF 


420 ‘HIHI RG 
430 SYMBOL 236,1,1,15,15,1,1,1,1 DT 
440 SYMBOL 237,128, 128, 240, 240,128, MD 


128, 128, 128 
450 SYMBOL 238, 7,8, 16,32, 64,255, 128 ) 
,255 

460 SYMBOL 239,224, 16,8, 4, 2,255, 1,2 : 
55 

470 SYMEOL 240,0, 24, 60, 189, 255,255, : 
153, 129 

480 SYMBOL 241,0,0,0,63,64, 64,63 
490 SYMBOL 242,0, 126, 129, 126, 0,0, 25 
5,255 

500 SYMBOL 243,0,0,0,252,2,2,252 VX 
510 SYMBOL 248,240, 144, 128,240, 16,1 KZ 
6,144, 240 

520 SYMBOL 249,0,0, 240, 144, 128,128, 
144,240 

530 SYMBOL 290,0,0,240, 144, 144,144, >HY 
144,240 

540 SYMBOL 251,0,0, 160, 208, 208, 128, HN 
128, 128 

550 SYMBOL 252,0,0, 240, 144,240, 128, >HD 
128, 240 

560 SYMBOL 253,0,0, 240, 0,0, 240 WT 
570 SYMBOL 150,7, 81F,&3F,47F,7F,25 DK2 
5, 255, 255 

580 SYMBOL 151,4E0, LFB, LPC, UFE,BFE, 
255, 255,255 


>YV 
?FJ 


an 








590 SYMBOL 152,255, 255, ACF, 447,863, 
L33, MF, 47 

600 SYMBOL 153,255, 255, 255, 254, 254, 
&FC, LFB, LEO 


&10 SYMBOL 48,24,236,36,0,36,36,24  >ZK 
620 SYMBOL 49,0,4,4,0,4,4 >TK 
630 SYMBOL 50,24,4,4,24,32,32,24  >YM 
640 SYMBOL 51,24,4,4,24,4,4,24 WG 
650 SYMBOL 52,0, 36, 36, 24,4, 4 VB 
bbÙ SYMBOL 53,24,32,32,24,4,4,24 YU 
670 SYMBOL 54,24,32,32,24,36,36,24 >AR 
680 SYMBOL 55,24,4,4,0,4,4 »TA 


690 SYMBOL 56,24,36,36,24,36,3b,24 AE 
700 SYMBOL 57,24,36,36,24,4,4,24 
710 RETURN 

T20 HN 3RK 
730 ‘* BOUCLE PRINCIPALE +* 
740 AH 
750 IF INKEY{touchei)=0 AND x>-2 TH : 
EN x=x-16:po=po-2 

760 IF INKEY(touche2)=0 AND x<{603 T >YD 
HEN x=x+16:po=pot+2 

770 TAG 

780 PLOT -10,-10,6:MOVE x-32,40:PRI 
NT “sCHR$(240)5" "5 

790 IF INKEY(touche3)=0 THEN GOSUB 
1520 

800 PLOT RND#638,350,9: IF RND:=0.5 
THEN color=4:PLOT XPOS+color, 350, 10 
ELSE color=-4:PLOT XPOS+color, 350, 
10 

810 FOR 1=62960 TO 63000 STEP 2:f=P GG 
EEK(I):1F #0 THEN GOSUB 1120 

820 NEXT 

830 IF INKEY(27)=0 THEN TAGOFF: PEN 
9: LOCATE 13,25:PRINT USING"&":"PAUS 
E "s;:CALL &BBOb:CALL &BBO6:CALL & 
BBO0G:PEN 6:LOCATE 13,25:PRINT USING 
“&"s "INTRUDER"; : TAG 

840 CALL &7000 >HK 
850 IF INKEY(touchei}=0 AND x>-2 TH >WH 
EN x=x-16:po=po-2 

860 IF INKEY(touche2}=0 AND x<b03 T }VE 
HEN x=x+16:po=po+2 

870 PLOT -10,-10,6: MOVE x-32,40:PRI >VF 
NT "sCHR$(240);" "; 

880 IF INKEY(toucheS)=0 THEN GOSUB 66 
1520 

890 FOR i=63000 TO 63038 STEP 2:f=P >GM 
EEK(i):1F #30 THEN GOSUB 1120 

900 NEXT ; EE 
910 IF n=2 THEN CALL &7000 TC 
920 IF n=3 THEN CALL &7000:CALL &70 >CD 


>EF 
>FP 


00 

930 xi=x1+cx >HD 
940 b=B+i >CD 
990 c=C+i }C6 


960 PLOT -10,-10,4:MOVE x1,380:PRIN 
T “ “:CHRS (241) : CHRS (242) :CHRS (243) 


Un, 
4 4 


970 IF sc=1000 THEN TAGOFF:PEN 1:L0 > 


CATE 13,25:PRINT USING"£"; "BONUS '#! 
“3: FOR bonus=sc TO 5C+490 STEP 10:L 
OCATE 7,25:PEN 5:PRINT bonus: SOUND 
1,60,2,7:NEXT:sc=bonus:LOCATE 13,25 
PEN 6: PRINT USING"&"; "INTRUDER" 3: T 
AG 


980 IF SC=2000 OR 5C=3000 OR SC=400 > 


Q THEN FIN=i 

990 IF SC:=2150 OR SC}=4150 THEN 
FIN=0 | 

1000 IF 5C=3150 THEN FIN=4 

1010 IF SC>=4500 THEN G0TO 4480 
1020 TAGOFF:PEN 5:LOCATE 7,25:PRINT 
sc; : TAG 

1030 IF x1=0 OR x1=576 THEN cx=-cx 
1040 IF b}=10 THEN b=0:60SUB 1210 
1050 IF c?=5 THEN c=-5:G60SUB 1220 
1060 CALL 47000 

1070 MOVE 0,76:DRAWR 640,0, 10 

1080 GOTO 750 

1090 HAE 

1100 ‘# TEST ECRAN  +# 

1110 NN 

1120 IF PEEK(i)=5 OR PEEK(i)=10 OR 
PEEK(i)=65 OR PEEK(i)=75 OR PEEK(i) 
=130 OR PEEK(i1)=135 THEN RETURN 


1130 ENV 1,30,0,1,127,-1,15: SOUND 1 > 


29,0,240,15, 1,0, 10 


1140 SPEED INK 1,1:INK 1,26, 0:BORDE > 


R 26,0:INK 0,0,26 

1150 FOR i=1 TD SO0:NEXT 

1160 IF SQ(1)=132 THEN 1160 ELSE vi 
e=vie-] 

1170 IF vie>0 THEN GOSUB 4710: G0TO 
150 


1180 WHILE INKEY$<>"":WEND: GOSUB 34 } 


LA 

1190 CALL &BBÔ6 

1200 CLS:60SUB 3430:G0T0 1780 

1210 IF FIN=0 THEN MOVE (INT (RND#70 
))#4+10,300:G60T0 1290 


1220 IF FIN=0 THEN MOVE (INT (RND#65 : 


1)#4+346,300:G0T0 1290 
1230 IF FIN=2 THEN RETURN 

1240 IF FIN=1 THEN GOTO 1350 
1250 1F FIN=4 THEN GOTO 1420 
1260 ‘HIHI 
1270 ‘+ INTRUDERS  # 
1280 ‘HIHI 
1290 IF RND>0.63 THEN DRAWR 8,0,7:M 
OVER 4,-2:DRAWR -16,0,7:PLOTR -2,0, 
T:PLOTR 16,0,7:MOVER 0,-2:DRAWR 4,0 
,S:DRAMR 0,-16,5:PLOTR -4, 14,5: MOVE 














æ| 


R -16,0:DRAUR 0,2,5:DRAR -2,0,5:DR 
AWR 0,-16,5:PLOTR 4,0,3:PLOTR 16,0, 
Z:MOVER -4,4 ELSE GOTO 1310 

1300 DRANR 0,14, 1:MOVER -4, 0: DRAWR 

0,-16,1:MOVER -4, 2:DRAMR 0,14, 1:PLO 
TR 0,-4,11:PLOTR 8,0, 11:PLOTR -4, -6 
,3:PLOTR 0,-4, 11:RETURN 

1310 IF RND>0.33 THEN DRAWR 8,0,7:M 
OVER 4,-2:DRAWR -16,0,7:PLOTR -2,0, 
7:PLOTR 16,0,7:MOVER 0,-2:DRAUR 4,0 
6: DRANR 0,-16,6:PLOTR -4, 14, 6:MOVE 
R -16,0:DRAUR 0, 2,6: DRAHR -2,0,6:DR 
AUR 0,-16,6:PLOTR 4,0,3:PLOTR 16,0, 
3:MOVER -4,4 ELSE BOTO 1330 

1320 DRAWR 0, 14, 1:MOVER 4,0: DRAWR 

0,-16, 1:MOVER -4,2:DRANR 0, 14, 1:PLO 
TR 0,-4,11:PLOTR 8,0,11:PLOTR -4,-6 
,3:PLOTR 0,-4, 11:RETURN 

1330 PLOTR 0,0,1:MOVER 4,0:DRAUR 8, 
0,7:PLOTR 0,-2,7:MOVER 16,0: DRAUR 0 
,2,7:DRAUR 8,0,7:PLOTR 4,0, 1:MOVER 

-16,-2:DRAMR 0,-4,4:MOVER -4, 0: DRAW 
R 0,6,4:MOVER -4,-2:DRAUR 0,-4,4:PL 
OTR 0,2,7:PLOTR 8,0, 7:PLOTR -4, -4,2 
:PLOTR -12,-2,1:PLOTR 4,2, 1:PLOTR 4 
2,1 

1340 PLOTR 8,0, 1:PLOTR 4,2, 1:PLOTR 

4,-2,1:RETURN 

1350 TAGOFF 


© 


1360 LOCATE 7,5:PRINT CHR$(190);"E ) 


X":CHR$ (151); 


1370 LOCATE 6,6:PRINT CHR$(150):;"X 1 


X';CHR$ (151) ; 


1380 LOCATE 4,7:PRINT CHR$(150) ;"XT à 


HE INTRUDERX"; CHR$ (151) ; 


1390 LOCATE 4,8:PRINT CHR#(152)5"X ? 


X';CHRS (153) ; 

1400 LOCATE 5,9:PRINT CHR$ (152) ; "TX 

ZX; CHRS (153); 
1410 SC=5C+25: TAG:F IN=2: RETURN 
1420 TAGOFF 
1430 PEN 4:LOCATE 3,5:PRINT CHR$(15 
O:LOCATE 4,6:PRINT CHRS(153) 
1440 PEN S:LOCATE 4,5:PRINT CHR$(15 
L):LOCATE 3,6:PRINT CHR$ (152) 
1450 PEN S:LOCATE 15,6:PRINT CHR$ (1 
50):LOCATE 16,7:PRINT CHR$ (153) 
1460 PEN 4:LOCATE 16,6:PRINT CHR$(1 
51):LOCATE 15,7:PRINT CHR$ (152) 
1470 PEN 7:LOCATE 8,7:PRINT CHR$(15 
O):LOCATE 9,8:PRINT CHR$ (153) 
1480 PEN 1:LOCATE 9,7: PRINT CHR$(15 
L){LOCATE 8,8: PRINT CHR$ (152) 
1490 SC=5C+25: TAG:F IN=0: RETURN 
1500 ‘HER 
1510 ‘+ TIR LASER * 
1520 ‘HIHI 


9 


#XG 


?UE 


“. 


JP 
AC 
>k 
KP 
KR 
NT 
NT 
‘LD 
KG 
AJ 
XI 


>XK 
YA 








1530 ENV 2,15,-1,102ENT 2,190,10,1: 
SOUND 129,50, 90, 15, 2, 2: TAGOFF : LOCAT 
E 1,1:PRINT CHR$ (23) ; CHR$ (1) : TAG: MO 
VE x+16,60:DRAWR 0,350,2:CALL &BDi9 
:MOVE x+16,60:DRAWR 0,350, 2: TAGOFF : 
LOCATE 1,1:PRINT CHR$(23)+CHR$ (0): T 
AG: pb=88 

1540 FOR i=po T0 (po-1520) STEP -B0 


1550 pb=pb+ié:1IF PEEK(i)=0 OR PEEK( 
12=5 OR PEEK(i)=10 OR PEEK(1)=65 OR 
PEEK(i)=75 OR PEEK(i)=130 OR PEEK( 
1)=135 THEN 1580 
1560 sc=sc+25:ENV 1,30,0,1,127,-1,1 
9: SOUND 129,0,240,15,1,0,10:PLOT -1 
0,-10,2:MOVE x-22,pb:PRINT"  ";:M0 
VE x-22,pb-16:PRINT"  "s:MOVE x-22 
$PD-32:PRINT" "5: MOVE x-22,pb+3:F 
RINT"  “ssi=po-1520 
1570 TAGOFF:LOCATE 1,1:PRINT CHR$ (2 
3)+CHR$ (1): TAG: MOVE X+16, 60: DRAHR 0 
5390,2:CALL &BDI9:MOVE X+16,60:DRAW 
R 0,350,2:TAGOFF:LOCATE 1,1:PRINT € 


HR$ (23) +CHR$ (0) : TAG 

1580 NEXT 

1590 RETURN 

1600 © HIHI 
1610 ‘* MENU # 


1620 #4 

1630 GOSUB 2260 

1640 MODE 1 

1650 INK 1,26: INK 2,26: INK 3,26 
1660 GOSUB 2730 

1670 WINDOW #2,7,40,7,25:PAPER#?, 1: 
PEN#1,0 

1680 WINDOW #1,3,37, 3, 24:PAPER#, 1: 
CLS#i 

1690 PEN 1:PAPER 0 

1700 LOCATE 3,3: PRINT CHR$ (250) :LOC 
ATE 37,3:PRINT CHR# (249) :LOCATE 3,2 
4:PRINT CHRS (248) :LOCATE 37,24:PRIN 
T CHR (247) 

1710 PEN #2,2 

1720 LOCATE 18,4:PEN 3:PAPER 1:PRIN 
T'MENU" 

1730 GOSUB 2690 

1740 LOCATE 7,20:PRINT" INTRUDER" 
1750 GOSUB 2730 

1760 PEN 2:LOCATE 9,23:PRINT CHRS(1 
64)" BIGHEAD SOFTHARE 1987" 

1770 PEN S:LOCATE 4,5:PRINT CHR$(15 
1):LOCATE 3,6: PRINT CHR$ (152) 

1780 PRINT#2, "1... INSTRUCTIONS" 
1790 PRINT#2 

1800 PRINT#2, "2...CHOIX CLAVIER OÙ 
JOYSTICK" 

1810 PRINT#2 


FC 


AW 


RB 


Ce 


>UF 


Ca 


FD 


?LF 
?FJ 
>XK 
YA 
>YB 
3XC 
>PG 
3XG 
>XH 
>KM 


HJ 


D 


DE) 
>RR 


?LE 
LH 
YA 
BE 
?XH 
H 


>KY 
>B6 
HE 
>QD 


>GH 


1820 PRINT #2,"3...REGLAGE DE LA DI w® 2210 FOR T=1 TO 1000:NEXT T:FOR k=1 >XK 


FFICULTE" 
1830 PRINT #2 
1840 PRINT #2,"4...MEILLEURS SCORES 


1850 PRINT#2 

1860 PRINT#2,"9...JEU" 

1870 INK 1,0:INK 2,11: INK 3,6 

1880 a$=INKEYS$ 

1890 IF a$="i" THEN GOTO 1980 

1900 IF a$="2" THEN GOTD 2770 

1910 IF a$="3" THEN G60TO 2990 

1920 IF a$="4" THEN G60TO 3200 

1930 IF a$="5" THEN PRINT CHR$(22)+ 
CHR$ (0) +CHR$ (23) +CHR$ (0) : VIE=3: SC=6 
:60T0 149 

1940 GOTO 1880 

1950 HE 

1960 ‘+ REGLES # 

1970 ‘HER 

1980 GOSUB 3410:60SUB 4110 

1990 DATA " REGLES DU JEU 
2000 DATA “ AU FIN FOND DE L'UNIVER 
ç" 

2010 DATA 


2020 DATA 


2030 DATA 


2040 DATA 


“ 


"UNE NOUVELLE BATAILLE 


"VOUS ATTEND... 


“ FACE À CES NOUVEAUX 


2050 DATA 


2060 DATA 


"CHOSE À FAIRE : 


VOUS DEFENDRE ! 


2070 X=120:Y=330: PRINT CHR$ (22) +CHR : 


$(1) 5: PRINT CHR$ (23) +CHR$ (1) ; 
2080 RESTORE 1990:F0R 1=1 TO B:READ 
P#(1) 


2090 TAG:PLOT -2,-2,1:MOVE X,Y:PRIN 


T P#(I); 


2100 PLOT -2,-2,2:MOVE X+1,Y-1:PRIN : 


T P$(I); 
2110 Y=Y-20 

2120 TAGOFF 

2130 NEXT 

2140 TAGOFF 

2150 RESTORE 2220 

2160 READ A,B 

2170 IF A=-1 THEN GOTO 2210 

2180 SOUND 1,A,B,7:SOUND 2,44, B-2, 
5 

2190 IF INKEY(47)=0 THEN FOR k=1 TO 
35:PRINT:NEXT:60SUB 3430:60T0 1780 


2200 G60TO 2160 


MENVAHISSEURS, PLUS Q'UNE : 


>HB 
?FB 


>HB 
>Q7 
3VT 
?XB 
?VX 
34 
VU 
VE 
?EJ 


>AK 
?LN 
?EG 
?TX 
?CC 


>TH 


>MA 

















TO 35S:PRINT:NEXT:GO0SUB 3430:G0T0 1 
780 


2220 DATA 478, 50,319, 50, 358, 13,379, 


13,426,13,239,60,319, 60,358, 13,379, 
13,426,13,239,60,319,60,358, 13,379, 
3,358,13,426,70,-1,0 

2230 ‘HN 

2240 ‘# PRESENTATION CLAP +# 

2250 HIHI 


2260 INK 0,2b:BORDER 26: INK 0,26:IN 


K 1,262:INK 2,26: INK 3,6:INK 11,0:IN 
K 13,0: INK 12,26: INK 14,11 
2270 GOSUB 3750 

2280 WINDOW#1 , 2, 19,5, 22 
2290 PAPER#1, 1:CLS#1 

2300 PAPER O:PEN 1:LOCATE 
T CHR$(248):LOCATE 19,22:PRINT CHR$ 
(247) 

2310 PEN#1,0 

2320 PRINT#1, "UNIVERSAL STUDIOS" 
2330 PRINT#1 

2340 PRINT#1, "PRODUCTION “ 
2350 PRINT#1, “DIRECTOR " 
2360 PRINT#1, "CAMERA " 
2370 PRINT#I 

2380 PRINT#1," DATE SCENE TAKE"; 
2390 PRINT#," " 
2400 PEN 1:PAPER 0 

2410 FOR X=3 TO 17 STEP 4 

2420 LOCATE X,4:PRINT CHRS(214)CHR$ 
(143) CHR$ (212) 

2430 LOCATE X+1,3:PRINT CHRS(214)CH 
R$ (143) CHRS (212) 

2440 NEXT 

2450 FOR X=4 TO 17 STEP 4 


2460 LOCATE X,2:PRINT CHR$(213)CHR$ > 


(143) CHR$ (215) 


2470 LOCATE X-1,1:PRINT CHR$ (213) CH : 


R$ (143) CHR$ (215) 
2480 NEXT 

2490 TAG:PLOT -2,-2, 1:MOVE 50,390:P 
RINT CHRS(231)::MOVE 50,390:PRINT C 
HRS (230) ; : TAGOFF 
2500 PLOT 30,60, 1:DRAW 30, 398: DRAN 
607,398: DRAM 607,330:PLOT 30, 367:DR 
AW 607,367 

2510 PRINT CHRS (22)+CHR$ (1) 

2520 PEN 2 

2530 LOCATE 12,7:PRINT"INTRUDER" 
2540 LOCATE 12,9:PRINT CHRS(164)+"B 
IGHEAD" 

2550 LOCATE 13, 11:PRINT"AMSTRAD" 
2560 PRINT CHRS (22) +CHR$ (0) 

2570 PRINT CHR$(23)+CHRS (1) 

2580 FOR I=0 TO 200 STEP 2:PLOT 1,4 
00-1,12:DRAW 640,400-I:PLOT 1,1+1:D 


10 


2,22:PRIN > 





>< 


RAW 640, 1+I:NEXT:PLOT 1,200: DRAM 64 








0,200, 12 

2590 touchei=71: touche2=63: touche3= >MX 
EX | 47:nz=i 

2600 DIM Hi(20).nm$ (20) OV 

2610 RESTORE 2620:F0R 1=1 TO 10:REA >YX 

D HI(I),NM$(I):NEXT 
?XK | 2620 DATA 4500, "D. VINCENT", 4000, "GP EX 
YA | OCK",3000, "NEMES1S", 2500, "HERKY", 10 
?YB | 00,"COBRA",999, "MAD", 950, "CRAD MAX" 

AV | ,900, "SKELETOR", 850, "GRYZOR", 500, "M 

UTANTS" 

2630 WHILE INKEY$<5>"":WEND 3VT 
2XJ | 2640 AS=INKEYS WG 
PRT | 2650 IF A$=CHR$(32) OR A$=CHR$(13)  >DG 
PJ | THEN RETURN ELSE GOTO 2640 

AH | 2660 ‘HN >YG 

2670 ‘# ECRITURE MODE 0/1 +# >YH 

2680 * HAN »YJ 
3YE | 2690 POKE &B1CB,0:POKE &B1D0,833:RE >GF 
?CH | TURN 
GE | 2700 ‘HIHI >YB 
?FT | 2710 ‘# ECRITURE MODE 1/1 +* >YC 
GP | 2720 ‘HIHI ÿYD 
?GU | 2730 POKE &B1CB,1:POKE &B1D0,444:P0 >RV 
?GJ | KE &B1D1,422:POKE &B1D2,&11:RETURN 
2C6 | 2740 ‘HE >YF 
HW | 2750 ‘*# CHOIX CLAVIER/JOYS. * ?YG 
LE | 2760 ‘HIHI >YH 
RE | 2770 GOSUB 3410 ?XG 
?TJ | 2780 PRINT CHR$(22)+CHR$(1)+CHR$ (23 >LQ 

)}+CHR$ (1) 
3VT | 2790 DATA “ CLAVIER(1)...JOYSTICK(2 ?FY 

lg 
?LB | 2800 RESTORE 2790:READ P$:TAG:PLOT CR 
RK | -2,-2,1:MOVE 120,320:PRINT P$: : PLOT 

TN | -2,-2,2:MOVE 121,329:PRINT P$;:TAG 

OFF 
}VF | 2810 PEN 3:LOCATE 6,6:PRINT T1$:T2$ >VB 

5" "sF$:LOCATE 22,5:PRINT CHR$ (254) 
2LF | +CHR$(251):LOCATE 22,6:PRINT CHR$ (2 
TB | 52)+CHR$ (253) 

2820 RESTORE 2950 ?LD 

2830 ENV 2,4,0,1,7,-1,1:ENV 3,24,-i >GD 
EZ | .25,0,5 

2840 G=12 :BH 

2850 FOR A=1 TO 16:READ C,D ?UM 
VE | 2860 SOUND 1,C,12,15,2:SOUND 2+16,0 >LF 
?FK | ,12,6,3,,D 
>BD | 2870 IF D=i THEN G=12 ELSE G=15 ?XA 
KD | 2880 IF D=1 THEN ENV 3,3,0,1,1,-12, >AG 

Î 
>BY | 2890 IF D=31 OR D=8 THEN G=15 >VQ 
>VJ | 2900 A$=INKEYS ?WF 
2VM | 2910 IF A$="{" THEN touchei=71:touc >EW 
64 | he2=63: touche3=47:CLS:GO0SUB 3430: 60 


TO 1780 
(à 





2920 IF A$="2" THEN touchei=74: touc : 


he2=75: touche3=76:CLS:60SUB 3430: 60 


TO 1780 
2930 NEXT 

2940 GOTO 2820 

2950 DATA 638,1,638,1,319,1,319,1,6 
38,31,638,1,319,1,319,1,638, 1,638, 1 
,426,1,426, 1,358, 31,379, 1,426, 1,506 


Î 

4 

2960 ‘HIHI 

2970 ‘# REGL. DE LA DIFFI. # 

2980 HE 

2990 GOSUB 3410 

3000 PRINT CHR$(22)+CHR$ (1) +CHR$ (23 
}+CHR$ (1) 


3010 DATA "REGLAGE DE LA DIFFICULTE : 


3020 RESTORE 3010:READ P$: TAG: PLOT 
2,72, 1:MOVE 120,330: PRINT P$; : PLOT 
—2,72,2:MOVE 121,329:PRINT P$:: TAG 
OFF 


3030 PEN 2:PRINT:PRINT: PRINT:PRINT 


‘ NIVEAU 1":PRINT" 
NIVEAU 2":PRINT" 

AU 3" 

3040 DATA “ APPUYER SUR 1,2 OÙ 3" 

3050 GOSUB 4110:RESTORE 3040:READ P 

$2TAG:PLOT -2,-2,1:MOVE 135,200:PRI 

NT P$;:PLOT -2,-2,3:MOVE 136, 199:PR 

INT P$3 :TAGOFF 

3060 RESTORE 3150 

3070 FOR U=1 TO 32:READ V,H,X 

3080 ENV 5,4,0,1,8,-1,1 

3090 SOUND 1,V,12,15,2:SOUND 18,0, 1 

2,0,3,,W:SOUND 36,X,12,14,5 

3100 A$=INKEYS 

3110 IF A$="{" THEN N=1:CLS:60SUB 3 

430:60T0 1780 


NIVE 


3120 IF A$="2" THEN N=2:CLS:GOSUB 3 > 


430:60T0 1780 
3130 IF A$="3" THEN N=3:CLS:60SUB 3 
430:60T0 1780 

3140 NEXT:GOTO 3060 

3150 DATA 638,1,0,638, 1,0,319,1,119 
,319,1,0,638, 31, 106,638, 1,0,319,1,1 
19,319,1,0,638,1,127,638,1,0,426,1, 
159,426, 1,0, 358, 31, 127,379, 1,0, 426, 
1,159, 506, 1,0 

3160 DATA 638, 1,95,638, 1, 106,319, 1, 
89,319,1,106,398,31,0,638,1,0,319,1 
,0,319,1,0,638,1,0,638,1,0,426, 1,0, 
42b,1,0,358,31,0,379, 1,0, 426, 1,0,50 


b,1,0 
3170 HARAS 
3180 ‘# TOP 10 3 


3100 ‘HE 
3200 GOSUB 3410:PEN 2 


D 
à 


RC 


Sa 


>YD 
dYE 
YF 
>PM 


3210 DATA" TOP 10" RJ 
3220 PRINT CHR$(22)+CHR$ (1)+CHR$ (23 ÿLE 
)+CHR$ (1) 

3230 RESTORE 3210:READ P$:TAG:PLOT 
-2,-2,1:MOVE 120,330: PRINT P$; :PLOT 
-2,-2,2:MOVE 121,329:PRINT P$; 
3240 GOSUB 4110: Y=290 >PR 
3250 FOR I=1 TD 10 ?LE 
3260 PLOT -2,-2,1:MOVE 200,Y:PRINT  >NG6 
HI(I);:MOVE 320,y:PRINT NM$(1);: 

3270 PLOT -2,-2,2:MOVE 200,Y:PRINT >ML 
HI(I);:MOVE 320,y:PRINT M$(I); 


NA 


3280 Y=Y-19 WG 
3290 NEXT: TAGOFF MH 
3300 RESTORE 3380 LV 
3310 ENV 1,1,15,1,1,-3,2,1,0,1,1,0, >HD 
1,12,-1,4:ENV 2,1,15,1,1,0,1,1,0,1, 


12,-1,8, 2, -1,20 

3320 FOR V=1 TO 44:IF V=32 THEN RES 
TORE 3380 

3330 READ P,D:D=D#15 

3340 SOUND 1,P,D,6:SOUND 2,P#2,D,5, >YD 
2:SOUND 4,P/3,D,5,1 

3350 IF INKEY(47)=0 THEN LOCATE 1,1 : 
8:FOR T=1 TO 16:PRINT:NEXT:GOSUE 34 
30:60T0 1780 

3340 NEXT LD 
3370 GOTO 3400 MH 
3380 DATA 478,4,358,3,398,1,398,4,3 >GL 
19,4,284, 3,284, 1, 284,6, 358, 2, 319, 2, 
284,2, 268, 4,379,4,319,4,358, 4 

3390 DATA 239,2, 239,2, 284,2,213,6,2 RC 
39,2, 239, 2,268, 2, 268, b, 268, 2, 268, 2, 
319,2, 239,6, 268, 2, 268, 2, 284, 2, 284, 4 


Æ 
as 


3400 LOCATE 1,18:F0R T=1 TO 16:PRIN HF 
T:NEXT:60SUB 3430:60T0 1780 

3410 WINDOW 5,35,4,19:CLS 

3420 RETURN 

3430 WINDOW #2,7,40,7,25:PAPER#2, 1: 
PEN 3:LOCATE 14, 1:PRINT"MENU" 


3440 GOSUB 3750 ?XJ 
3450 RETURN FF 
3460 ‘HE >YF 
3470 ‘# CLASSE AU TOP 107? # ?YG 
3480 ‘HAE >YH 
3490 FOR i=1 TO 10 LL 
3500 IF sc>hi(i) THEN 3530 >TP 
3510 NEXT LA 


3320 INK 0,26: BORDER 26: INK 1,0: INK : 
2,11:INK 3,6:G0SUB 3750:G60T0 1640 


3530 FOR j=i0 TO I STEP -i RG 
3540 hitj+i)=hi(j)inm$(j+i)=nm$(j) BE 
3350 NEXT LE 
3560 hili)=sc MC 


3570 MODE 1:PEN 2:INK 1,6:INK 2,11: HG 


11 











INK 3,26 

3580 TAGOFF BJ 
3590 LOCATE 16,5:PRINT CHR$(150);"X >XT 

X";CHR$ (151) ; 
3600 LOCATE 15,6:PRINT CHR$ (150): "X >26 
XL"; CHR$ (151); 

3610 LOCATE 13,7:PRINT CHR$ (150); "X HT 
THE INTRUDERX"; CHR$ (151) ; 

3620 LOCATE 13,8:PRINT CHR$ (152): "X >CF 

X";CHRS (153) ; 
3630 LOCATE 14,9:PRINT CHR$ (152): "X > AC 
ZX"; CHR$ (153) ; 

3640 ENT 2,15,1,3 >Dk 
3650 LOCATE 1,12 >DH 
3660 PAPER O:PEN 3:PRINT" BRAVO, VO RU 
US ETES CLASSE DANS LE TOP 19" 

3670 FOR NO=1 TO 26 STEP 0.5: BORDER 
27-N0: INK 0,N0: INK 2,27-N0: INK 3,2 
7-N0:FOR T=1 TO 40:NEXT T:SOUND 130 
,0,5,15,0,0,NO:NEXT NO: INK 0, 0:PEN 
32 INK 2,11:INK 3,26: INK 1,6: BURDER 
(1) 

3680 PEN 1:PRINT:FRINT" 
OTRE NOM: "; 

3690 WHILE INKEY$<>"":WEND 
3700 PEN 3:LINE INPUT 6$ 
3710 NM$CI)=LEFTS(G$, 10) : INK 0,26:B 
ORDER 26: INK 1,0: INK 2,11: INK 3,6:6 
OSUB 3750:6070 1640 


:HQ 


ENTREZ V TZ 


3720 HAE VE 
3730 ‘#  REDEF. CARAC. + VF 
3740 HE 3YG 
3750 SYMBOL AFTER 22 PA 


3760 SYMBOL 290,7, &1F,43F,&7F,47F,2 LV 
55, 255, 255 

3770 SYMBOL 249,4E0, LFB, 8FC,BFE,&FE 
,255, 255, 255 

3780 SYMBOL 248,255, 255, 8CF, 447,463 
USS UF, &7 

3790 SYMBOL 247,255, 255, 255, 254,254 
RFC, UFB, LEO 

3800 SYMBOL 254,0,0,15,7,3,3,3,3 
3810 SYMBOL 251,0,0,128,192,192,192 JR 
,192,192 

3820 SYMBOL 252,3,3,3,3,15,31,31,31 : 


3830 SYMBOL 253, 192, 192, 192, 128, 254 
,254, 252, 252 

3840 SYMBOL 65,254, 194, 194,254,226, DH 
226,226 

3850 SYMBOL 66,252, 194,194,252,226, HU 
226, 252 

3860 SYMBOL 67,254,192,192, 192,224, DHV 
224,254 

3870 SYMBOL 68,252, 194,194,194,226, >HD 
226, 252 

3880 SYMBOL 49,254, 192, 192, 254,224, 


De 
= 
—< 


224,254 
3890 SYMBOL 70,254, 192, 192, 254, 224, 
224,224 


3900 SYMBOL 71,254,192, 192, 198,226, > 


226, 252 


3910 SYMBOL 72,194,194, 194, 254,226, : 


22b, 224 


3920 SYMBOL 73, 24,24, 24,24, 28, 28,28 : 


3930 SYMBOL 74,6,6, 6, b, 230, 220, 124 
3940 SYMBOL 75,70, 196, 200, 240, 232, 2 
28,226 
3950 SYMBOL 76,192, 192,192, 192,224, 
224,255 


3960 SYMBOL 77,198, 234,210, 194,226, : 


22b, 226 


3970 SYMBOL 78,194, 226,210, 202, 230, 


226, 224 


3980 SYMBOL 79,124,194,194,194,226, ) 


22b, 124 


3990 SYMBOL 80,254,194,194,254,224, ; 


224,224 


4000 SYMBOL 81,124,194,194,194,234, > 


228, 122 


4010 SYMBOL. 82,254, 194, 194,254,232, > 


228, 224 


4020 SYMBOL 83,124, 194,192, 124,2, 22 : 


6,124 


4030 SYMBOL 84,254, 48,48, 48,56, 56,5 


b 


4040 SYMEOL 85,194,194,194,194,226, : 


226, 254 


4050 SYMBOL 86,194, 194, 194, 194,226, 


100,56 


4060 SYMBOL 87,194,194, 194, 194,242, : 


234,198 
4070 SYMBOL 88,194, 196, 104, 48, 104, 2 
28,226 


4080 SYMBOL 89,194, 194, 100, 48, 56,56 ) 


,56 


4090 SYMBOL 90,254, 2, 4,24, 48, 224,25 


4 
4100 RETURN 


4110 SYMBOL 65,124,254,198, 198,254, > 


254,198, 198 


4120 SYMBOL 66, 248, 196, 198, 254,254, : 


198, 196, 248 


4130 SYMBOL 67,126,254,192,192,192, > 


192, 254, 126 


4140 SYMBOL 68,248, 252, 198, 198,198, > 


198, 252, 248 


4150 SYMBOL 69,254,254,192,240,192, > 


192, 254, 254 


4160 SYMBOL 70,254,254, 192, 240,192, 


192, 192, 192 
4170 SYMBOL 71,254,254, 192, 192,206, 
198,254, 254 


>HM 








m 


4180 SYMBOL 72,198, 198, 198, 254,254, 
198, 198, 198 

4190 SYMBOL 73, 126,126, 24,24, 24,24, 
126, 126 


4200 SYMBOL 74,30,30,12,12,236,236, : 


124,124 


4210 SYMBOL 75,98, 102, 108, 120, 120,1 > 


20, 108, 102 


4220 SYMBOL 76,240, 240, 96, 9, 102,10 >k 


2,126, 126 


4230 SYMBOL 77,254,254,214,214,198, > 


198, 198, 198 


4240 SYMBOL 78,102, 102, 118,110, 102, : 


102, 102, 102 


4250 SYMBOL 79, 126,126, 102, 102,102, > 


102, 126, 126 


4260 SYMBOL 80,126, 126,102, 126,126, > 


96,96, 96 


4270 SYMBOL 81,254,254, 198, 198,222, > 


220,246, 246 


4280 SYMBOL 82,252, 102, 102, 124,120, ) 


108, 102, 231 


4290 SYMBOL 83, 126,126,96,124,62,6, > 


126, 124 


4300 SYMBOL 84,254, 254,56, 56,56,56, ? 


56, 124 


4310 SYMBOL 85,102, 102, 102, 102,102, > 


102,126,126 


4320 SYMBOL 86, 102, 102, 102, 102,102, > 


102, 60,24 


4330 SYMBOL 87, 238,238, 238, 254,254, } 


238,238, 198 


4340 SYMBOL 88,102, 126, 24,24,24,24, > 


126, 102 


4250 SYMBOL 89,102,102,36,24,24,24, > 


60, 6ù 


360 SYMBOL 90,126,126,6,12,24,48,1 ) 


26, 126 
4370 RETURN 


4380 HEAR 
4390 ‘+ ROUTINE LM Li 
4400 ‘+ CALL &7000 4 


AO ‘HIHI 

4420 DATA 195,9,112,1,80,5,237, 184, 
201,33,63, 246, 17,63, 254,205, 3, 112,3 
3,63,238, 17,63, 246, 205,3, 112,33,63, 
230,17,63,238, 205,3, 112,33, 63,222, 1 
7,63,230,205,3,112,33,63,214,17,63, 
222,205, 3, 112 


4430 DATA 33,63, 206, 17,63, 214, 205,3 : 


,112,33,63, 198, 17,63, 206, 205,3, 112, 
33,239,253,17,63,198, 205,3, 112,201, 
0,0,0 

4440 RESTORE 4420 


a 


MK 


HU 


)LX 


4450 FOR i=&7000 TD &7054:READ a:PO >G6H 


KE i,a 
4460 NEXT 


12 


>LF 

















4470 RETURN 
4480 TAGOFF 

4490 FOR 1=1 TO 21:LOCATE 1,25:FRIN 
T'J":NEXT 

4500 FOR 1=21 TO 1 STEP -1:LOCATE 1 
 LEPRINT"4":NEXT 

4510 INK 0,0: BORDER 0 

4520 PEN 1 

4530 A$(1)="BRAVO, VOUS AVEZ" 

4540 A$(2)="DETRUIT TOUS LES" 

4550 A$(3)="INTRUDERS! !!" 

4580 M=1 

4570 Y=6 

4580 FOR t=1 TO 10 

4590 FOR 1=1 TO LEN(A$(M)) 

4600 PEN INT (RND#E) +1 

4610 BORDER INT (RND#15) 

4620 LOCATE 2+1,Y 

4630 PRINT MIDS(A$ (M), I, 1) 

4640 SOUND 1,50,4,7:SOUND 3, 10, 3,6: 
SOUND 2,5,2,5 

4650 NEXT 

4660 M=M+1: Y=Y+1 

4670 IF M=4 THEN M=1:Y=6 

4680 NEXT t 

4690 BORDER 0 

4700 GOTO 3490 

4710 MODE 0: INK 1,24: INK 2,6: INK 0, 
0: BORDER 0 

4720 PLOT 50, 100, 1:DRAW 50, 370: DRAW 
590,370: DRAM 590, 100:DRAW 50, 100:P 
LOT 592,372, 2:DRAW 592,98: DRAW 46,9 
B:DRAW 46,372, 4:DRAN 592, 372 

4730 PEN 8 

4740 LOCATE 4,4:PRINT"IL VOUS RESTE 
4750 PEN 7 

4780 FOR X=8 TO 5+(VIE#2.5) STEP 2 
4770 LOCATE X, 10:PRINT CHR (240) 
4780 NEXT 

4790 IF VIE=2 THEN LOCATE 12, 10:PRI 
NT CHRS (238) CHR$ (239) :LOCATE 12,9:P 
RINT CHR (236) CHR$ (237) 


)FJ 
BJ 
ML 


WW 


FU 
GA 
>XT 
2YV 
?TZ 
WF 
YD 
?LZ 
?TN 
PM 
RE 
#LL 
UV 
>06 


:LG 
?LN 
>RG 
?XE 
>JK 
?NE 
?LM 


TG 


>HA 
>GD 


>HB 
>IR 
AL 
2MA 
?ET 


4800 IF VIE=1 THEN LOCATE 8,10:PRIN >ED 


T CHR$(240)" "CHR$ (238) CHR$ (239) ; * 


“3 CHR$ (238) CHR$ (239) :LOCATE 10,9:PR 


INT CHR$(236)CHR$ (237)" "CHR$ (236) C 
HR$ (237) 

4810 WHILE INKEY$<>"":WEND 

4820 CALL &BB06 


4830 RETURN 

4840 ‘ HA#HYE HR + + 
4850 ‘ * + + 
4860 ‘ #4 CRE TI 
4870 ‘ # + + 
4880 ‘ + * + + 
4890 ‘ # #4 + + 









Valable pour 
464 
x CPC 664 


Calculer la surface d’un carré 
ou d’un rectangle. Facile ! 
Mais celle d’un trapèze, d’un 
losange ou, mieux, d’une 
ellipse, cela vous dirait ? Pas 
vraiment, n'est-ce pas ? 
Surface vous permet de 
calculer tout cela en deux 
temps, trois mouvements avec 
Jormules à l'appui. 

Si vous avez du mal en math 
et que votre prochaine interro 
approche, saisissez vite ce 
programme qui vous fera 
réviser vos points faibles. 
Initialement conçu avec son 
complément : Volume (qui 
sera publié dans le prochain 
hors série), Surface est 
parfaitement utilisable seul. 
Alors, bonne révision... 






#1? 


10 ON ERROR GOTO 4890 


20 LB 
30 ‘ SURFACES ?LC 
40 ‘ LD 
930 ‘ MENU PRINCIPAL ?LE 
60 ” ?LF 
70 MODE 2:SU$=CHR$ (24) :SURF=1:GOSUB >JY 





4850 

80 LOCATE 26,6:PRINT SU$; "CARRE"; SU 2PZ 
$; SPC (10) ; SU1$3; "LOSANGE"; SU1 $ 

90 LOCATE 26,8:PRINT SU2$; "RECTANGL >KT 
E"; 902$; SPC (6) ; SU3$ ; "PARALLELOGRAMM 
E";SU3$ 

100 LOCATE 26,10: PRINT SU4$;"TRIANG >YF 
LE"; SU4$; SPC (7) ; SU5$3 "TRAPEZE" ; SU5$ 


110 LOCATE 26,12:PRINT SUS; "CERCLE >XE 
* ; SU6S ; SPC (9) : SU7S$; "COURONNE “: SU7$ 
120 LOCATE 26, 14:PRINT SUB$;"SECTEU )PL 
R";SUBS: SPC (8) :SU9$; "SEGMENT CIRCUL 


AIRE"; SU9$ 
130 LOCATE 26,16:PRINT SU10$;"ELLIP >NQ 
SE"; SU10$ 
140 ” ?RF 
150 ‘ CHOIX RG 
160 ‘ >RH 


SURFACE 


Emmanuel GUILLARD 


A:SURE. ,SECT. 


u=((D#d)/2) = 


ao. b:LARG. r,R:RAYON d,b:DIM. 


COPV-RETOUR AU MENU! pans, ein. win. DT. 5 


170 IF INKEY(8)=0 THEN SURF=SURF-1: 
GOTO 240 


180 IF INKEY(0)=0 THEN SURF=SURF-2: } 


GOTO 240 


190 IF INKEY(1)=0 THEN SURF=SURF +1: 


GOTO 250 


200 IF INKEY(2)=0 THEN SURF=SURF+2: 


GOTO 250 
210 IF INKEY(9)=0 THEN RUN*SURVOL" 
" k7 


220 IF INKEY(18)=0 THEN ON SURF 605 : 


UB 390,790,1230,1610,2090, 2390, 2740 


,3090,3250,3590,4070:G60T0 80 
230 GOTD 170 

240 IF SURF<1 THEN SURF=11 
250 IF SURF>11 THEN SURF=1 


260 ON SURF GOSUB 270, 280, 290, 300,3 


10,320, 330, 340, 350, 360, 370:60T0 80 





LE UA$="":SUS$="": RETURN 


>PB 


270 SU$=CHRS$ (24) :SU1$="":SU2$="":SU >CF 


10$="":SU9$="": RETURN 


280 SU1$=CHRS$ (24) :SU$="":SU2$="":GU >CA 


3$="": SU10$="": RETURN 


290 SU2$=CHR$ (24) :SU$="":SU1$="":SU >BA 


3$="": SU4$="": RETURN 





310 SU4$=CHRS (24) :SU2$="": SU3$=" "16 ) 


U5$="":SU6$="": RETURN 


320 SUS$=CHRS (24) : SU3$="": SU4$=" "16 ) 


U6$="":5U7$="": RETURN 
330 SU6$=CHRS (24) : SU4$="": GUS$=" "26 
U7$="":SU8$="": RETURN 


340 SU7$=CHRS (24) :SU5$="": SUb$="":S 2 


U8$="":609$="": RETURN 
350 SUB$=CHRS (24) : SUb$="": SU7$=" "216 
U9$="":6010$="": RETURN 


360 SUPS=CHRS (24) : SU7$="":SUB$="":6 ) 


U10$="":SU11$="": RETURN 

370 SU1O$=CHRS (24) : SU$="": SUBS=" "26 
U9$="": GU$="": RETURN 

380 ‘ carre 

390 MODE 2:G0SUB 4670:GOSUB 4860 
400 PLOT 320,200, 13:DRAWR -100,0:DR 
AWR 0,100:DRAWR 100,0: DRAWR 0,-100 
410 PLOT 220,200: DRAWR -17,0:DRAWR 
0,100: DRAWR 17,0 

420 PLOT 203,200: DRAWR -5, 10: PLOTR 
11,0: DRAWR -5,-10:PLOT 203,300: DRAW 
R -5,-10:PLOTR 11,0:DRAWR -5,19 
430 PLOT 220,200: DRAWR 0,-17: DRAWR 


300 SUS$=CHRS (24) :5U1$="":SU2$="":6 A7" 100,0:DRAR 0,17 


13 


CH 


DE 


>BH 
?TB 
ID 
?PL 
>UQ 


2MQ 


UT 


440 PLOT 220,183:DRAR 10,5:PLOTR 0 >JD 
,-11:DRAUR -10,5:PLOT 320, 183: DRAWR 
-10,5:PLOTR 0,-11:DRAMR 10,5 

450 PLOT 220,200: DRAMR 100, 100 >XR 
460 LOCATE 26,10:PRINT "a":LOCATE 3 ?WG 
4,14:PRINT “a":LOCATE 34,10:PRINT " 

e" 

470 foi$=CHRS (24) : fo2$="": f03$="":£ HT 


o4$="" 

480 fo=i >YH 
490 LOCATE #3,59,6:PRINT #3, fo1$;"A >XV 
=a"s CHR$ (255) ; foi$ 

900 LOCATE #3,99,10:PRINT #3,f02$;" ?NR 
a= A'":f02$ 

510 LOCATE #3,99,14:PRINT #3,f03$;" >PK 
e=a 2":f03$ 

520 LOCATE #3,59,18:PRINT #3,fo4$:" >NA 
u=4a"; fo4$ 

530 ‘ radicaux ?RJ 


940 PLOT 480,299, 1:DRAWR 8,-14:DRAW DKT 
R 8,14:DRAWR 16,0:PLOT 488,192: DRAW 
R 8,-14:DRAWR 6, 14:DRAWR 16,0 

990 IF INKEY(18)=0 THEN 650 

960 IF INKEY(47)=0 THEN 590 

970 IF INKEY(9)=0 THEN CLS:RETURN 
580 G60TO 530 

990 fo=foti:IF fo:4 THEN fo=i 

600 ON fo GOSUB 610,620, 630,640: GOT 
0 490 

610 foi$=CHR$ (24) : fa24="": fo3$=" "if ; 
04$="":RETURN 

620 fo2$=CHR$ (24) : fo1$="": f03$=" "2 f | 
04$="":RETURN 

630 fo3$=CHR$ (24) : fo1$="": fo2$=" "if : 
04$="": RETURN 

640 fo4$=CHR$ (24) : foi$="": f028=" "2 # 
03$="":RETURN 

650 CALL &BBO3:CLS#1:0N fo GOSUB 66 >NY 
0,690,750,720:CLS#1:G0SUB 4770: G60SU 
B 4860:G0T0 470 

660 tabi=2:tab2=2:G0SUB 4330 

670 aire=ROUND (coi”2, 4) :LOCATE #1,2 : 
,6:PRINT#1,"L'aire est de :":PRINT 
#i,aire;" cm";CHR$(255);" ." 


>RZ 


680 CALL &BBO6: RETURN >0B 
690 tabi=2:tab2=2:G0SUB 4640 WC 
700 co=ROUND(SGR (aire) ,4):LOCATE #1 VE 


,26:PRINT#1,"Le cote est de :“:PRI 
NT #i,co;" ca ." 

710 CALL &BBO6: RETURN 

720 tabi=2:tab2=2:G0SUB 4330 

730 per=ROUND (coi#4):LOCATE #1,2,6: 
PRINT#1, "Le perinetre est":PRINT #i 


," de :"sper;" cm ." 


740 CALL &BB0b:RETURN >QY 
750 tabi=2:tab2=2:G0SUB 4330 ?WV 
760 dia=ROUND(coi*SQR(2),4):LOCATE >UU 





#1,2,6:PRINT#I, "La diagonale est":P 


RINT #1," de :";dia;" ca ." 
770 CALL &BB06:RETURN >0B 
780 ‘ losange ?TF 


790 MODE 2:G0SUB 4670:G0SUB 4860  >ZH 
800 PLOT 320,200, 13:DRAWR -100,0:DR ;RK 
AWR 30,87:DRAWR 100,0: DRAWR -30,-87 


810 PLOT 220,200: DRARR 0,-17:DRAWR 
100,0:DRAWR 0,17 

820 PLOT 220,200:DRAWR -13,4:DRAWR >?VL 
30,87: DRAWR 13,-4 

830 PLOT 220,183: DRAWR 10,5:PLOTR © >J6 
,711:DRAWR -10,5:PLOT 320, 183: DRAWR 
-10,5:PLOTR 0,-11:DRAWR 10,5 

840 PLOT 207,204: DRAWR -2,8:MOVER 2 DH 
,-8:DRAUR 8,4:PLOT 237,291: DRAWR 2, 
-B:MOVER -2,8:DRAWR -8, -4 

850 PLOT 280,200: DRAWR 0,87:MOVER 0 :FH 
5779: DRAWR -8,0:DRAWR 0,-8 

860 LOCATE 28,10:PRINT "a":LOCATE 3 >HU 
4,14:PRINT “a":LOCATE 36,10:PRINT " 

h" 

870 ORIGIN 220,200:DEG:PLOT 20,0:F0 >HP 
R a%=0 TO 70 STEP 10:DRAW 204005 (a% 
),20#SIN(a%) :NEXT: ORIGIN 0,0 

880 LOCATE 30,12:PRINT CHR$ (176) ?1Q 
890 foi$=CHR$ (24) : fo2$="": fo3$="":f NP 
o4$="": fo=i 

900 LOCATE #3,99,6:PRINT #3,fo1$;"A >NR 
=a.h";foi$ 

910 LOCATE #3,99,10:PRINT #3,f02$;" VC 
A=a"; CHR$ (255) : "sin": CHR$ (176) : fo2$ 


?UV 


920 LOCATE #3,59, 14:PRINT #3, f03$;" >PQ 
a=A/h";f03$ 


930 LOCATE #3,99,18:PRINT #3,f04$:" NF 
u=4a"; f04$ 

940 IF INKEY(18)=0 THEN 1040 3] 
950 IF INKEY(47)=0 THEN 980 >UB 
960 IF INKEY(9)=0 THEN CLS:RETURN  >CK 
970 GOTD 940 2AF 
980 fo=foti:IF fo>4 THEN fo=1 >XK 


990 ON fo GOSUB 1000, 1010, 1020, 1030 >J6 
:60T0 900 

1000 fo1$=CHRS (24) : f028="": fo3$="": TK 
#04$="" : RETURN 

1010 f02$=CHR$ (24) : foi$="": fo3$="": DTL 
f04$="":RETURN | 
1020 f03$=CHR$ (24) : foi$="": f028="": >TM 
f04$="":RETURN 

1030 Fo4$=CHRS (24) : foi$="": f028="": TN 
403$="":RETURN : 

1040 CALL &BBO3:CLS#1:0N fo GOSUB 1 >VL 
050, 1100, 1170, 1140:CLS#1:G0SUB 4770 
:60SUB 4860: 60T0 890 


1050 tabi=2:tab2=2:G0SUB 4330 XL 
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1060 tabi=2:tab2=8:60SUB 4440 >XY 
1070 IF haut'coi THEN LOCATE #1,1,1 >HM 
:PRINT#1,CHR$ (7) :GOSUB 4460 

1080 aire=ROUND (coxhaut, 4) :LOCATE # >ZR 
1,2, 10:PRINT#1,"L'aire est de :":PR 

INT #i,aire;" cm";CHR$(255);" ." 


1090 CALL &BB06: RETURN RM 
1100 tabi=2:tab2=2:G0SUB 4330 >XG 
1110 tabi=2:tab2=8:60SUB 4420 >XP 
1120 aire=ROUND(co1*2#SIN(angl),4): >NR 
LOCATE #1,2,10:PRINT#1,"L'aire est 

de :":PRINT #i,aire;" cm":;CHR$ (255) 

1130 CALL &BB06:RETURN RG 
1140 tab1=2:tab2=2:60SUB 4330 XL 


1150 per=ROUND (coi#4i :LOCATE #1,2,6 >KU 
:PRINT#i,"Le perimetre est":PRINT # 


1," de :"sper;" cm ." 

1160 CALL &BB06:RETURN >RK 
1170 tabi=2:tab2=2:G0SUB 4640 >XU 
1180 tabi=2:tab2=8:60SUB 4460 >XB 


1190 IF haut>SGR(aire) THEN LOCATE >QJ 
#1,1,1:PRINT#1,CHR$(7):G0TD 1180 

1200 co=ROUND (aire/haut, 4) :LOCATE # >BM 
1,2, 10:PRINT#,"Le cote est de :":P 
RINT #i,co;" cm ."“ 


1210 CALL &BB06: RETURN >RF 
1220 ‘rectangle >XH 
1230 MODE 2:60SUB 4670:G60SUB 4860  :AX 


1240 PLOT 420,200, 13:DRAWR -200,0:D >QF 
RAWR 0,100:DRAWR 200,0:DRAWR 0,-100 


1250 PLOT 220,200:DRAWR -17,0:DRAWR >VN 
0,100:DRAWR 17,0 

1260 PLOT 203,200:DRAWR -5,10:PLOTR ?PE 
11,0:DRAWR -5,-10:PLOT 203, 300: DRA 

WR -5,-10:PLOTR 11,0:DRAWR -5,10 

1270 PLOT 220,200: DRAWR 0,-17:DRAWR >VR 
200,0:DRAWR 0,17 

1280 PLOT 220,183:DRAWR 10,5:PLOTR >LR 

0,-11:DRAWR -10,5:PLOT 420, 183: DRAW 

R -10,5:PLOTR 0,-11:DRAWR 10,5 

1290 PLOT 220,200:DRAWR 200, 100 ?XD 
1300 LOCATE 26,10:PRINT "b":LOCATE >WX 

40,14:PRINT “a“:LOCATE 40,9:PRINT 

e" 

1310 fo1$=CHR$ (24): fo2$="": fo3$="" AY 
1320 fo=i >DH 
1330 LOCATE #3,59,8:PRINT #3,fo01$;" >PA 
A=a.b";foi$ 

1340 LOCATE #3,59,13:PRINT #3,f02$; >WA 
“e= a";CHR$ (295) ; "+b": CHR$ (255) : fo 

2$ 

1350 LOCATE #3,99,18:PRINT #3,f03$; >TB 
“u=2a+2b": f03$ 

1360 ‘ radicaux ?YC 
1370 PLOT 480,208:DRAUR 8,-14:DRAWR >UA 





8,14:DRAWR 50,0 
1380 IF INKEY(18)=0 THEN 1470 
1390 IF INKEY(47)=0 THEN 1420 


1400 IF INKEY(9)=0 THEN CLS:RETURN DCJ 
1410 GOTO 1380 ?MF 
1420 fo=foti:IF fo>3 THEN fo=1l XD 


‘1430 ON fo GOSUB 1440,1450, 1460:60T :6Q 
0 1330 


1440 foi$=CHR$ (24) : fo2$="": f03$="": JG 
RETURN 

1450 fo2$=CHR$ (24) : foi$="":#03$="": >JH 
RETURN 

1460 #o3$=CHR$ (24) : fo1$="": f02$=" "5 JJ 
RETURN | 

1470 CALL &BBO3:CLS#1:0N fo GOSUB 1 >PM 
490,1520,1560:CLS#1:GOSUB 4770:G0SU 

B 4860:60T0 1310 

1480 tabi=2:tab2=2:G0SUB 4330 >XU 
1490 tabi=2:tab2=6:G0SUB 4360 ?XC 
1500 aire=ROUND (coi+co2,4):LOCATE # >XK 
1,2,8:PRINT#1,"L'aire est de :":PRI 

NT #i,aires;" cm"s;CHR$(295);" .* 

1510 CALL &BB06:RETURN >RJ 
1520 tabi=2:tab2=2:60SUB 4330 >XN 
1530 tabi=2:tab2=6:G0SUB 4360 3XX 
1540 dia=ROUND (SGR(col*2+co2"2),4): >JP 
LOCATE #1,2,10:PRINT#1,"La diagonal 

e est":PRINT #1," de :";dia;" cm. 
1550 CALL &BB06:RETURN >RN 
1560 tab1=2: tab2=2:G0SUB 4330 ?XT 
1570 tabi=2:tab2=6:G60SUB 4360 >XB 
1580 per=ROUND (coi#2+co2#2, 4) :LOCAT >2C 
E #1,2,10:PRINT#1,"Le perimetre est 
“:PRINT #1," de :";per:" cm .* 

1590 CALL &BB06:RETURN >RT 
1600 * PARALLELOGRAMME 3KK 
1610 MODE 2:60SUB 4670:G0SUB 4860  }AZ 


1620 PLOT 370,200, 13:DRAWR -150,0:D ?TR 

RAUR 30,87: DRAWR 150, 0: DRAWR -30, -8 

7 

1630 PLOT 220,200: DRAMR 0,-17:DRAWR >VM 
150,0:DRAWR 0, 17 

1640 PLOT 220,200: DRAMR -13,4:DRAWR >WH 
30,87: DRAUR 13, -4 

1650 PLOT 220,183: DRAUR 10,5:PLOTR ?LX 
0,-11:DRAMR -10,5:PLOT 370, 183: DRAN 

R -10,5:PLOTR 0,-11:DRAMR 10,5 

1660 PLOT 207,204: DRAUR -2,8:MOVER EX 

2,-8:DRANR 8,4:PLOT 237,291:DRAMR 2: 
,-B:MOVER -2,8:DRAR -B, -4 

1670 PLOT 320, 200:DRAMR 0,87:MOVER  >GH 

0,-79:DRANR -8,0:DRAUR 0, -8 

1680 LOCATE 28,10:PRINT “b":LOCATE  >YM 

38,14: PRINT "a":LOCATE 39, 12:PRINT 

“h" 


1690 ORIGIN 220,200: DEG:PLOT 20,0:F >JF | 2000 tabi=2:tab2=10:G0SUB 4420 





fé a%=0 TO 70 STEP 10:DRAW 20*C05 (a 
ML 


4),20#SIN(a%) :NEXT: ORIGIN 0,0 


PWJ | 1700 LOCATE 30,12:PRINT CHR$(176):P >VM 


LOT 220,200: DRAWR 180,87: MOVER -150 

50: DRAWR 120,-87:LOCATE 34,9:PRINT 
“e2":LOCATE 45,9:PRINT "ei" 

1710 fo1$=CHR$ (24): fo2$="": fo3$=""s PT 
fo4$="": fo=i 


1720 LOCATE #5,99,6:PRINT #3,foi$;" PH 
=a.h";foi$ 

1730 LOCATE #3,99,10: PRINT #3,fo2$; JL 
“A=a.b.sin":;CHR$ (176) ; fo2$ 

1740 LOCATE #3,59,14:PRINT #3,f03$; FE 


“ei= (ath.cot":CHR$(176)3;")";CHR#( 
299) 3 "+h" 3; CHR$ (255) ; fo3$ 

1790 LOCATE #3,99,1B8:PRINT #3,fo4$: >FQ 
(a-h.cot";CHR$ (176) 3 "3 "3 CHR$( 
255) : "th" CHR$ (255) : fo4$ 

1760 ‘ radicaux 

1770 PLOT 488,128, 1:DRAWR 8,-14:DRA :PK 
WR 8,14: DRAWR 120,0:PLOT 488,192:DR 

AUR 8,-14:DRAWR 8,14:DRAWR 120,0 


“e2= 


1780 IF INKEY(18)=0 THEN 1880 WH 
1790 IF INKEY(47)=0 THEN 1820 WT 
1800 IF INKEY(9)=0 THEN CLS:RETURN ?CN 
1810 GOTO 1780 ND 
1820 fo=foti:IF fo>4 THEN fo=i ?XJ 
1830 ON fo GOSUB 1840,1890, 1860,187 >MA 


0:60T0 1720 

1840 foi$=CHR$ (24) : fo2$="": fos$=" "2 TV 
f04$="": RETURN 

1850 fo2$=CHR$ (24) : foi$="": fo3$="": TZ 
f04$="": RETURN 

1860 #o3$=CHR$ (24) : fo1$="": f02$="": TA 
f04$="": RETURN 

1870 fo4$=CHR$ (24) : fo1$="": f02$="": TB 
f03$="": RETURN 

1880 CALL 8&BB03:CLS#1:0N fo GOSUEB 1 >XH 
890,1930,1980,2030:CLS#1:G0SUB 4770 
:G0SUB 4860:60T0 1710 

1890 tab1=2:tab2=2:60SUB 4330 

1900 tabi=2:tab2=8:G0SUB 4460 
1910 aire=ROUND (coi*haut, 4) :LOCATE 
#1,2,10:PRINT#1, "L'aire est de :":P 
RINT #i,aire;" cm";CHR$(255);" ." 


>X1 
>XB 
AY 


1920 CALL &BB06: RETURN >RP 
1930 tabi=2:tab2=2:G0SUB 4330 >XU 
1940 tabi=2:tab2=6:G0SUB 4360 >XC 
1950 tabi=2:tab2=10:G0SUB 4420 VV 


1960 aire=ROUND (coi#co2*SIN(angl},4 >RY 
):LOCATE #1,2,14:PRINT#1,"L'aire es 
t de :"“:PRINT #i,aire;" cm“; CHR$ (25 
5" ." 

1970 CALL &BB06:RETURN 

1980 tabi=2:tab2=2:60SUB 4330 

1990 tab1=2: tab2=6:G0SUB 4460 


>RV 
>X7 
?XJ 
YF 
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@ 2010 dia=ROUND(SQR( (coithaut+1/ (TAN >GH 


(ang1))}*2+haut"2),4):LOCATE #1,2,1 
2:PRINT#1,"La diagonale ei est":PRI 


NT #1," de :";dia;" cm ." 

2020 CALL &BB06: RETURN >RF 
2030 tabi=2:tab2=2:60SUB 4320 >XK 
2040 tabi=2:tab2=6:G0SUB 4460 ?XV 
2050 tab1=2:tab2=10:G60SUB 4420 ?YL 


2060 dia=ROUND (SQR((coi-haut+1/ (TAN :GR 
(angl) }}*2+haut"2),4):LOCATE #1,2,1 
2:PRINT#1,"La diagonale e2 est":PRI 


NT #1," de :"sdia;" cm ." 

2070 CALL &BB06: RETURN RL 
2080 ‘ triangle >YC 
2090 MODE 2:60SUB 4670:60SUB 4860  >AC 


2100 PLOT 320,200, 13:DRAWR -100,0:D >BT 
RANR 40,87: DRAUR 40, -87 

2110 PLOT 220,200:DRAWR 0,-17:DRAUR >VJ 
100, 0:DRAMR 0, 17 

2120 PLOT 220,183:DRAMR 10,5:PLOTR 
0,-11:DRAWR -10,5:PLOT 320, 183: DRAM 
R -10,5:PLOTR 0,-11:DRAWR 10,5 

2130 PLOT 320,200:DRAWR 14,8:DRAMR >XQ 
-40,87:DRAMR -14,-8 

2140 PLOT 334,208:DRAMR 0,8: MOVER 0 
,-B:DRAMR -8,4:PLOT 294,295: DRAUR 0 
,-B:MOVER 0,8: DRAUR 8, -4 

2150 DEG:PLOT 312,218:F0R f=180 TO 
250 STEP 10:DRAWR 4#C0S (4), 44SIN(#) 
:NEXT 

2160 PLOT 220,200:DRAMR 0,87:DRAR PT 
60,0:MOVER -60,0:DRAMR -5,-5:PLOTR 
10,0: DRAUR -5,5:MOVER 0, -82:DRAUR 5 
,S:PLOTR -10,0:DRAMR 5,-5 

2170 LOCATE 28,10:PRINT"h":LOCATE 3 
4,14:PRINT"a":LOCATE 40, 10:PRINT"b" 
:LOCATE 37,12:PRINT CHR$ (177): 

2180 fo1$=CHRS (24) : fo28="": fo=1 
2190 LOCATE #3,59,6:PRINT #3, foi$;" 
A=la.h)/2"; fois 

2200 LOCATE #3,59, 14: PRINT #3, fo2$; >FQ 
“h=b, sin"; CHR (177) ; fo2$ 


>CK 


ra 
CS] 


2210 IF INKEY(18)=0 THEN 2290 ME 
2220 IF INKEY(47)=0 THEN 2250 WD 
2230 IF INKEY(9)=0 THEN CLS:RETURN CL 
2240 GOTO 2210 MA 
2250 fo=foti:IF fo>2 THEN fo=i ?XE 
2260 ON fo GOSUB 2270,2280:G0T0 219 >CM 
0 

2270 foi$=CHR$ (24) : fo2$="": f03$="": TN 
f04$="": RETURN 

2280 fo2$=CHR$ (24) : foi$="": fo5$=""s 2TX 


#04$="": RETURN 

2290 CALL &BBO3:CLS#1:0N fo GOSUB 2 >GN 
300,2340:CL5#1:G60SUB 4770:G0SUB 486 
0:60T0 2180 


2300 tabi=2:tab2=2:G0SUB 4530 >XK 


2310 tabi=2:tab2=8:60SUB 4460 >XX 
2320 aire=ROUND ((coi#haut}/2,4):L0C >GK 
ATE #1,2,10:PRINT#1,"L'aire est de 
ss PRINT #i,aire;" cm"sCHR$ (255): " 


2330 CALL &BB0b: RETURN >RK 
2340 tab1=2:tab2=2:G0SUB 4360 ?XT 
2350 tab1=2:tab2=8:G0SUB 4440 >X1 
2360 haut=ROUND (co2#SIN(angl),4):LD >KK 
CATE #1,2,10:PRINT#i."La hauteur es 

t de :":PRINT #1,haut;" cm." 

2370 CALL &BB06: RETURN >RP 
2380 ‘TRAPEZE YF 


2390 MODE 2:60SUB 4670:G0SUB 4860:P >HJ 
LOT 400,200, 13:DRAMR -150,0:DRANR 2 
0,80:DRAMR 80, 0:DRAWR 50, -80 
2400 PLOT 400,200:DRAWR 0,-15:DRAMR >XD 
-10,4:MOVER 0,-8:DRANR 10, 4: DRANR 
-150,0:DRAMR 10, 4:MOVER 0, -8: DRAWR 
-10, 4: DRANR 0,15 
2410 PLOTR 10,40:DRAUR 115, 0:DRAMR 
-10,4:MOVER 0,-B:DRAR 10, 4:MOVER - 
115,0:DRAMR 10, 4:MOVER 0,-B:DRAR - 
10,4 
2420 PLOT 350,280: DRAR 0, 15: DRAWR 
-10, 4: MOVER 0,-8:DRAUR 10,4: DRAUR - 
80,0:DRAUR 10,4:MOVER 0,-8:DRAMR -1 
0,4: DRAR 0,-15 
2430 PLOT 350, 280:DRAMR 70, 0: DRAMR- 
4,-10:MOVER 8, 0:DRANR -4, 10:DRAMR 0 
,-80:DRAUR -4, 10:MOVER 8,0: DRAWR -4 
,-10:DRAW 400, 200 
2440 LOCATE 40,7:PRINT “b“:LOCATE 4 
0, 10:PRINT “m":LOCATE 40,14: PRINT " 
a":LOCATE 53, 10:PRINT “h" 


BF 


JW] 


>1D 


?FJ 


2450 fo1$=CHR$ (24): fo2$="":fo3$="" AE 
2460 fo=i ?ED 
2470 LOCATE #3,99,8:PRINT #3,f01$;" >YT 


A=((atb}/2).h";fo1$ 

2480 LOCATE #3,99,13:PRINT #5, f02$; 
“A=a.h";f02$ 

2490 LOCATE #3,59,18:PRINT #5, fo3$; 
“a=(atb)/2"; fo3$ 


?QU 


VB 


2500 IF INKEY(1B)=0 THEN 2590 ?WK 
2510 IF INKEY(47)=0 THEN 2540 >WH 
2520 IF INKEY(9)=0 THEN CLS:RETURN >CN 
2530 G0TO 2500 ME 
2540 fo=foti:IF fo>3 THEN fo=i >XH 


2550 ON fo GOSUB 2560,2570,2580:60T >GP 
0 2470 

2560 fo1$=CHR$ (24) : fo2$="": fo3$=""s JL 
RETURN 

2570 fo2$=CHR$ (24) : fo1$="": fo3$="": 
RETURN 

2580 fo3$=CHR$ (24) : fo1$="": f02$="": DIN 
RETURN 

2590 CALL &BB03:CLS#1:0N fo GOSUB 2 >PD 


JM 


600,2650,2690:CLS#1:G0SUB 4770: 60SU 
B 4860:G0T0 2450 


2600 tabi=2:tab2=2:60SUB 4330 >XN 
2610 tab1=2:tab2=6:G0SUB 4360 JXX 
2620 tabi=2:tab2=10:GO0SUB 4460 >YU 


2630 AIRE=ROUND(((coi+co2}/2)*#haut, >TM 
4):LOCATE #1,2,14:PRINT#I,"L'aire e 

st de :":PRINT #i,aire;" cm“; CHR$ (2 
S9);" ." 


264) CALL &BBO06: RETURN RP 
2650 tabi=2:tab2=2:G0SUB 4390 3XA 
26b0 tabi=2:tab2=8:GOSUB 4460 XF 


2670 AIRE=ROUND ((loi#haut),4):LOCAT >DZ 
E #1,2,12:PRINT#1,"L'aire est de :" 
PRINT #i,aires;" cm"; CHR$(255)5" ." 


2680 CALL &BB0b: RETURN >RU 
2690 tabi=2:tab2=2:G60SUB 4330 >XY 
2700 tabi=2:tab2=8:G0SUB 4360 ?XT 


2710 moy=(coi+co2)/2:LOCATE #1,2,12 >DH 
:PRINT#1,"La longueur me est de :":P 
RINT #1,moy;" cm." 


2720 CALL &BB06: RETURN >RN 
2730 ‘ cercle »YE 
2740 MODE 2:G0SUB 4670:60SUB 4860 AE 


2750 DEG:PLOT 380,200:FO0R F4=0 TO 3 >MD 
60 STEP 10:DRAW 320+60#C0S (F4) ,200+ 
bOXSIN(F4) :NEXT 

2760 PLOT 320,200:DRAWR -60,0 

2770 PLOT 320,260:DRAWR 80,0: DRAWR 
4,-10:MOVER -8,0:DRAWR 4,10:DRAUR 0 
57120: DRAWR 4,10:MOVER -8,0:DRAWR 4 
,-10:DRAW 320,140 

2780 LOCATE 37,13:PRINT "r":LOCATE 
91,13:PRINT “d“ 

2790 foi$=CHR$ (24) : f02$="":#03$="": 
fo4$="":#0=1 

2800 LOCATE #3,59,6:PRINT #3,f01$;" : 
A= ("4 CHR$ (184) 5". ds CHR$ (255) 3“) /4" 
3f01$ 

2810 LOCATE #3,59,10:PRINT #3,f02$; >RL 
"AS"; CHR$ (184) 5", rs; CHR$ (255) ; fo2$ 
2820 LOCATE #3,59,14:PRINT #3,f03$; >FG 
“A=0.785%d" 3 CHR$ (255) ; f03$ 


2850 LOCATE #3,59,18:PRINT #3, fo4$; DEL 
“u=";CHR$ (184) ;".d"'; f04$ 

2840 IF INKEY(18)=0 THEN 2940 JR 
2850 IF INKEY(47)=0 THEN 2880 >WY 
2860 IF INKEY(9)=0 THEN CLS:RETURN >CH 
2870 G0TO 2840 JNJ 
2880 fo=fo+i:IF fo>4 THEN fo=i >XR 


2890 ON fo GOSUB 2900,2910,2920,293 M7 
0:60T0 2800 

2900 foi$=CHR$ (24) : fo2$="": fo3$="": 
f04$="":RETURN 

2910 fo2$=CHR$ (24) : foi$="": f03$="": 
#04$="":RETURN 


TH 
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TX 





2920 f03$=CHR$ (24) : foi$="": f02$="": TV 
#04$="":RETURN 

2930 fo4$=CHR$ (24) : fai$="": f028="": 
f03$="":RETURN 

2940 CALL &BBO3:CLO#1:0N fo GOSUB 2 >XK 
950, 2990, 3020,3050:CLS#1:G60SUB 4770 
:G0SUB 4860: G60TD 2790 


2950 tabi=2:tab2=2:G0SUB 4540 >XA 
2960 aire=ROUND ((PI1#d2“2) /4,4) *1C 
2970 LOCATE #1,2,6:PRINT#1,"L'aire KT 
est de :":PRINT #i,aires;" cm"; CHR#( 
255);" ." 

2980 CALL &BB06: RETURN >RX 
2990 tab1=2:tab2=2:60SUB 4480 >XH 


3000 aire=ROUND ((PI#ra”2),4):LOCATE ?AT 
#1,2,6:PRINT#1,"L'aire est de :":P 
RINT #i,aire;" cm";CHR$(255);" ." 


3010 CALL &BB0b: RETURN >RF 
3020 tabi=2:tab2=2:60SUB 4540 >XN 
3030 aire=ROUND((0.785#D2"2),4):LOC ?EE 
ATE #1,2,6:PRINT#1,"L'aire est de : 

“PRINT #i,aire;" cm"; CHR$(255);" . 

3040 CALL &BB06: RETURN ?RJ 
3050 tabi=2:tab2=2:606UB 4540 ?XR 


3060 per=ROUND (PI#D2, 4) :LOCATE #1,2 >BQ 
6:PRINT#, "Le perimetre est":PRINT 
#1," de :":PRINT #i,per;" cm ." 


3070 CALL 8&BB06: RETURN 3RM 
3080 ‘ couronne >YD 
3090 MODE 2:G0SUB 4670:60SUB 4860  >AD 


3100 DEG:PLOT 380,200:FOR F#=0 TO 3 >ZA 
&O:PLOT 320+60#C0S (F4) , 200+60#SIN(F 
2 :DRANR -10C08 (F4) ,-104SIN(F):NE 
XT 
3110 PLOT 320,260: DRAMR 80, 0:DRANR 
4,-10:MOVER -8,0:DRAMR 4, 10: DRAUR 0 
.-120:DRANR 4, 10:MOVER -B,0:DRAWR 4 
,-10:DRAW 320, 140 
3120 PLOT 320,250:DRAMR -80,0:DRAUR >AW 
4,-10:MOVER -8,0:DRAUR 4, 10: DRAM 
0,-100:DRAWR 4, 10:MOVER 8, 0: DRAHR 
4,-10:DRAN 320,150 
3130 LOCATE 30,13:PRINT "d":LOCATE 
50, 13: PRINT"D" 
3140 LOCATE #3,59,12:PRINT #3,CHRS( 
24) ; "Az (3 CHRS (184) : "/4). (D";CHRS (2 
55) ;“-d"; CHRS (255) 3 “) “; CHRS (24) 
3150 IF INKEY(18)=0 THEN 3180 SWH 
3160 IF INKEY(9)=0 THEN CLS:RETURN )CP 
3170 GOTO 3150 >MH 
3180 CALL BB03:CLS#1: tabi=2: tab2=2 PU 
:60SUB 4540 
3190 tab1=2:tab2=6:G0SUB 4510 >xY 
3200 IF d2di THEN LOCATE #1,1,1:PR >26 
INT CHR$(7):60T0 3180 
3210 aire=ROUND((PI/4)#(d1"2-d2°2), FT 


NZ 





4) Ds0 CALL LBBOG:RETURN 


3220 LOCATE #1,2,10:PRINT#I,"L'aire 
est de :":PRINT #1,aire;" cm";CHR$ 
(255);" ." 

3230 CALL &BB06:CLS#1:60SUB 4770:60 >W 
SUB 4860:60T0 3140 

3240 ‘secteur 

3250 MODE 2:G0SUB 4670:G60SUB 4860 
3260 DEG:PLOT 380,200:FOR F4=0 TD 3 
60 STEP 10:DRAW 320+60+C05 (F4), 200+ 

BORSIN(F4) :NEXT 

3270 FOR F4=45 TO 135:PLOT 320,200: 

DRAWR 60#C05 (F4), 60#SIN (F4) :NEXT 
3280 PLOT 320+60+#C06 (160), 200+60#S1 

N(160):DRAW 320+60#C06 (349) , 200+60# 
SIN(340) 

3290 PLOT 320+60#C05S (45), 200+604SIN ) 
(45) :DRAW 320+1204C06 (45), 200+12045 
IN (45) 

3300 PLOT 320+80+C05 (45) ,200+B04SIN >FM 
(45) 

3310 FOR F4=45 TO 135 STEP 10:DRAW 

320+804C06 (F4), 200+804SIN (F4) :NEXT 

3320 PLOT 320+120#C05 (45) ,200+12045 >HD 

IN(45) 

3330 FOR F4=45 TO 135 STEF 10:DRAW TR 

320+1204C05 (F4), 200+1204SIN (F4) :NEX 

T 

3340 DRAW 320+604C06 (135) ,200+604S1 >GF 

N(45) 

3350 LOCATE 41,5:PRINT CHR$ (176) 

3360 LOCATE 41,8:PRINT "b" >UJ 

3370 LOCATE 45,14:PRINT "d" 

3380 foi$=CHR$ (24) : fo2$="": fo=i #YC 

3390 LOCATE #3,59,8:PRINT #3, foi$;" 

A=(b.d)/4";fo1$ 

3400 LOCATE #5,59,16:PRINT #3,#02$; EK 

“b=d.";CHR$ (184) ;". ("as CHRS (176): "7/3 

60)": f02$ 

3410 IF INKEY(1B)=0 THEN 3490 

3420 IF INKEY(47)=0 THEN 3450 

3430 IF INKEY(9)=0 THEN CLS:RETURN 

3440 GOTO 3410 

3450 fo=foti:IF fo}2 THEN fo=1 

3460 ON fo GOSUB 3470,3480:60T0 339 : 

0 

3470 fo1$=CHR$ (24) : fo2$="": RETURN 

3480 f02$=CHR$ (24) : fo1$="": RETURN 

3490 CALL &BBO3:CLS#1:0N fo GOSUB 3 

9300,3540:CLS#1:G0SUB 4770:60SUB 484 

0:60T0 3380 

3300 tabi=2: tab2=2:GO0SUB 4540 

3510 tabi=2:tab2=6:60SUB 4570 

3520 aire=ROUND ( (d2#arc)/4,4):LOCAT 

E #1,2,10:PRINT#1,"L'aire est de :" 

:PRINT #,aire;" cm";CHR$(255);" ," 


?LE 


ZT 


?YB 
AB 
>MA 


œ 


èN 


?C0 


La 








d 








3540 tabi=2:tab2=2:60SUB 4540 
3550 tabi=2: tab2=6:GOSUB 4420 


a une longueur":PRINT #1," de 

c;" ca." 

3570 CALL &BB06:RETURN 

3580 ‘ segment circulaire 
3590 MODE 2:60SUB 4670: G0SUB 4860 

3600 DEG:PLOT 380,200:FO0R F4=0 TO 3 
60 STEP 5:DRAW 320+60#C06 (F4), 200+6 

OXSIN(F4) :NEXT 

3610 FOR F2=30 TO 90 STEP 2:PLOT 32 >DN 

0+60#C0S (F4), 200+604SIN (F2) : DRAW 32 
0+60+C05 (180-F4),200+604SIN(180-F7) 
:NEXT 

3620 PLOT 320+60+C05 (30) ,200+60*SIN >AL 
(30): DRAW 320+120#C06 (30),200+120#5 

IN (30) 

3630 FOR F#4=30 TO 150 STEP 10:DRAW >QF 
320+80+C05 (F4) , 200+B04GIN (F4) : NEXT 
3640 PLOT 320+120#C05 (30), 200+120#5 
IN(30) 

3650 FOR F#4=30 TO 150 STEP 10:DRAW TM 
320+120#C05 (F4), 200+1204SIN (F4) :NEX 
T 

3660 DRAW 320+604C05 (150) ,200+60#SI 

N(150) 

3670 FLOT 320+60#C05 (30) ,200+60*SIN >GR 
(30) :DRAWR 0,-40:DRAWR -8,4:MOVER 0 
,-8:DRAUR 8,4:DRAW 320+60*C05 (150), 
160+604SIN (30) :DRAWR 8,4: MOVER 0, -B 
:DRAWR -8,4:DRAWR 0,40 

3680 PLOT 380,200: DRAWR 0,-80:DRAUR ; 
-8,4:MOVER 0,-8:DRAWR B,4:DRAUR -i 

20,0:DRAWR 8,4: MOVER 0,-8:DRAWR -8, 
4: DRAW 260,200 

3690 PRINT CHR$ (23) :CHR$(1) 3: PLOT 3 
20,260: DRAWR 0,-30:DRAWR —2,4:MOVER 
4,0: DRAWR -2,-4:MOVER 0,30: DRAWR - 
2,-4:MOVER 4,0:DRAWR -2,4 

3700 LOCATE 39,10:PRINT CHR$(24);"h >PR 
“3 CHR$ (24) ; 

3710 PRINT CHR$ (23) ; CHR$ (0); 

3720 LOCATE 40,13:PRINT "s":LOCATE 
40,18:PRINT “d" 

3730 LOCATE 41,5:PRINT CHR$(176):L0 V2 
CATE 41,8:PRINT “b" 

3740 foi$=CHR$ (24) : fo2$="": f03$="": 
fo=i 

3750 LOCATE #5,59,6:PRINT #3,f0i$;" >QU 
A=((b.d)/4)-" 

3760 LOCATE #3,59,7:PRINT #3," (s(d ? 
-2h}/4))";fo1$ 

3770 LOCATE #3,59,11:PRINT #3, f02$; 
"h=(d/2). (1-cos("s;CHR$(176);"/2))"; 


tsar 


>16 


17 


2RN T fo2$ 

2H | 3780 LOCATE #3,59,16:PRINT #3, fo3$; : 
»XY 

3560 arc=ROUND ( (d2#P1)#(ang1/260),4 >VR 
):LOCATE #1,2,10:PRINT #1,"L'arc b 








>PP 
“s=d.sin(";CHR$(176);"/2)":f03$ 
3790 IF INKEY(18)=0 THEN 3880 >WB 
3800 IF INKEY(47)=0 THEN 3830 2WP 
3810 IF INKEY(9)=0 THEN CLS:RETURN CR 
3820 GOTO 3790 èNE 
3830 fo=foti:IF fo:3 THEN fo=i XL 


3840 ON fo GOSUB 23850,2860,3870:G0T :GE 
0 3750 

3850 foi$=CHR$ (24): fo2$="": fo3$=""e JF 
RETURN 

3860 fo2$=CHR$ (24): #01$="": f03$="": JU 
RETURN 

3870 fo3$=CHR$ (24) : foi$="": fo2$="": JR 
RETURN 

3880 CALL &BBOS:CLS#i:0N fo GOSUB 3 ;PT 
890,3970,4020:CLS#1:60SUB 4770:G0SU 

B 4860:G0T0 3740 


3890 tabi=2:tab2=2:G0SUB 4540 ?kE 
3900 tabi=2:tab2=6: GOSUB 4600 7XX 
3910 tabi=2:tab2=10:60SUB 4460: IF h >MC 


aut>d2 THEN LOCATE #1,1,1:PRINT CHR 
$(7):60T0 3910 
3920 tabi=2: tab2=14:60SUB 4570 ?ŸE 
3930 airei=ROUND (((arc#d2)/4),4) 
3940 aire2=ROUND ( (seg* (d2-2#haut ) /4 
),4):1F aire2;airel THEN CLS#i:PRIN 
T #1:FOR #=1 TO B:PRINT #1, "DONNEES 
INVALIDES": PRINT #1," RECOMMENCEZ 
SVP. ":NEXT:FOR G=1 TO 3O0O:NEXT:R 
ETURN 
3950 aire=ROUND (airei-aire2,4):LOCA FT 
TE #1,2,20:PRINT#1,"L'aire est de : 
“PRINT #i,aire;" cm"; CHR$(255);" . 


3960 CALL &BB06: RETURN RH 
3970 tabi=2:tab2=2:G0SUB 4540 >XD 
3980 tab1=2:tab2=6:G0SUB 4420 XF 


3990 HAUT=ROUND ( (D2/2)# (1-C0S (ANGL/ KR 
2)),4) 
4000 LOCATE #1,2,10:PRINT#1, "La hau >AK 


teur est de :":PRINT #i,haut;" cm." 


4010 CALL &BB06:RETURN RG 
4020 tabi=2:tab2=2:60SUB 4540 XP 
4030 tabi=2:tab2=6:G0SUB 4420 }XR 


4040 SEG=ROUND (D2#S IN (ANGL/2) ,4):LD MR 
CATE #1,2,10:PRINT#1,"La mesure du" 
:PRINT #1," segment s est de:":PRIN 

T #i,seg;" ca." 


4050 CALL &BB06: RETURN RL 
4060 ‘ ellipse >YC 
4070 MODE 2:G0SUB 4670:G60SUB 4860 AC 


4080 DEG:PLOT 340,200:FO0R F4=0 TD 3 >MT 
60 STEP 5:DRAW 320+20#C05 (F4) ,200+1 


è OOSIN(FA):NEXT : 





4090 FLOT 300,200: DRAMR 8, 4:MOVER 0 
,-B:DRAUR -B,4:DRAWR 40,0: DRAWR -B, 
4: MOVER 0,-8:DRAUR 8,4 

4100 PLOT 320, 300:DRAMR -50, 0: DRAWR 
-4,-B:MOVER B,0:DRAMR -4,8:DRAUR 0 
,-200:DRAR -4,B:MOVER 8, 0:DRAUR -4 
,-B:MOVER -4,0:DRAUR 50,0 

4110 LOCATE 34,13:PRINT “D':LOCATE 
41,13:PRINT d" 

4120 foi$=CHRS (24) : fo28="": fo=1 
4130 LOCATE #3,99,8:PRINT #3, fois; " 

A=(D.d.";CHRS (184) :")/4"; fois 


4140 LOCATE #3,59,16:PRINT #3,fo2$; ÿk 


“us ((D+d}/2), "5; CHR$ (184) ; Fo2$ 

4150 IF INKEY(18)=0 THEN 4230 

460 IF INÉEY(47)=0 THEN 4190 

4170 IF INKEY(9)=0 THEN CLS:RETURN 
4180 GOTO 4150 

4190 fo=foti:IF fo:2 THEN fo=1 

4200 ON fo GOSUB 4210,4220:G0T0 413 
() 

4210 foi$=CHR$ (24) : f02$="": RETURN 
4220 +o2$=CHR$ (24) : fo1$="":RETURN 
4230 CALL &BBOS:CLS#1:G0SUB 4240:CL 
S#1:G0SUB 4770:G0SUB 4860:G0T0 4120 


4240 tabi=2:tab2=2:G0SUB 4510 

4230 tabi=2:tab2=6:G60SUB 4540 

4260 IF did2 THEN PRINT CHR$(7);:C 
LS#i:G0T0 4240 

4270 ON fo GOSUB 4280,4300:RETURN 


4280 aire=ROUND ((di#d2#F1)/4,4):L0C > 


ATE #1,2,10:PRINT#1,"L'aire est de 
PRINT #i,aire:" cm';CHR$(255);" 
4299 CALL &BB06: RETURN 

4300 per=ROUND ({(di+d2) /2)#P1,4):L0 
CATE #1,2,10:PRINT#1."Le perimetre 
est":PRINT #1," de “;per;" cm." 
4310 CALL &BB06: RETURN 

4320 END 


4330 LOCATE #i,tabi, tab2:PRINT#1,"E : 


NTREZ LE COTE a en":PRINTH1," 
-s LINE INPUTHI,"", cols 


CM - 


4340 coi=VAL(coi$):IF coi=0 THEN LO : 


CATE #1,1,1:PRINT#1,CHRS(7):G0T0 43 
30 

4350 RETURN 

4360 LOCATE #1, tabi, tab2:PRINT#I,"E 
NTREZ LE COTE b en":PRINT#," cm - 
=": LINE INPUTH#,"",co2$ 

4370 co2=VAL (co2$):1F co2=0 THEN LD 
CATE #1,1,1:PRINT#1,CHR$(7):G0TO 43 
80 

4380 RETURN 

4390 LOCATE #1, tabl, tab2:PRINT#,"E 
NTREZ LA LONGUEUR m":PRINT#1," en c 


>W® m "53: LINE INPUT#I,"",loi$ 


+PD 


WP 
>CR 
>NA 
>ED 
>BE 
>TQ 
>XQ 
»xz 
>RY 


?BC 


WG 


>FJ 
?TF 











4400 loi=VAL(1oi$):IF 1oi=0 THEN LO 

CATE #1,1,1:PRINT#1,CHR$ (7) :50TD 43 

90 

4410 RETURN 

4420 LOCATE #i,tabi,tab2:PRINT#i,"E 

NTREZ L'ANGLE ":;CHR$ (176) :PRINT#i," 
en DEGRES --:";:LINE INPUT#I,angl 

$:anql=VAL (ang1$):1F angl=0 THEN LÜ 

CATE #1,1,1:PRINT#i,CHR$(7)}:G0TD 44 

20 

4430 RETURN 


4440 LOCATE #1,tabi,tab2:PRINT#I,"E : 


NTREZ L'ANGLE "CHARS (177) :PRINT#1," 
en DEGRES --;";:LINE INPUT#I, angl 

$:angl=VAL (ang1$):1F angl=0 THEN LO 

CATE #1,1,1:PRINT#1,CHR$ (7) :GOTO 44 

40 

4450 RETURN 

4460 LOCATE #1,tabi, tab2:PRINT#1,"E 

NTREZ LA HAUTEUR":PRINT#i," en cm 

"42 LINE INFUT#I,haut$:haut=VAL i 

haut$):1F haut=0 THEN LOCATE #1,1,1 

:PRINT#1,CHR$ (7) :GOTO 4460 

4470 RETURN 

4480 LOCATE #i,tabi, tab2:PRINT#I,"E 

NTREZ LE RAYON r en":PRINT#I," cm 

> "ss LINE INPUT#1,"",ra$ 


4490 ra=VAL(ra$):IF ra=0 THEN LOCAT ; 


E #1,1,1:FRINT CHR$(7):G0TO 4480 
4500 RETURN 


4510 LOCATE #1, tabi, tab2:PRINT#1,"E 


NTREZ LE DIAMETRE D':FRINT#1," en c 
m -—}";{LINE INPUTHI,"",D1$ 


4520 Di=VAL(DI$):1IF Di=0 THEN LOCAT > 


E #1,1,1:PRINT CHR$(7):GOTO 4510 
4530 RETURN 

4540 LOCATE #1, tab, tab2:PRINT#1,"E 
NTREZ LE DIAMETRE d':PRINT#I," en c 
m =>"; LINE INPUT#I,"",D24 


4550 D2=VAL(D2$):1F D2=0 THEN LOCAT : 


E #i,1,1:PRINT CHR$(7):GDTD 4540 
4560 RETURN 


4570 LOCATE #1,tabi,tab2:PRINT#1,"E 


NTREZ LA LONGUEUR":PRINT#1," D'ARC 
b en ca": PRINT #1," --;"s;:LINE INFU 
T#i,"",arc$ 


4580 arc=VAL(arc$):1F arc=0 THEN LD : 


CATE #1,1,1:PRINT CHR$(7):60T0 4576 


4590 RETURN 

4600 LOCATE #i,tabi,tab2:PRINT#i,"E 
NTREZ LE SEGMENT s":PRINT#i," en c 
a -—;"s;:LINE INPUT#I,"",seg$ 

4610 seg=VAL (seg$):1F seg=0 THEN LO 
CATE #1,1,1:PRINT CHR$(7):60T0 4600 
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TX 


. 


FE 


3FE 


>FG 
>CV 





LE 


>FF 
>F6 





?6B 
RX 


?TP 


4620 IF seg:d2 THEN LOCATE #i,1,1:F 
RINT CHR$(7):60TD 4600 

4630 RETURN 

464G LOCATE #1,tabi,tab2:FRINT#],"E 
NTREZ L'AIRE en':FRINT#1," cm";CHR 
$(295);" --;"s:LINE INPUT#I,"" aire 
$ 

4650 aire=VAL(aire$):IF aire=ù THEN 
LOCATE #1,1,1:PRINT#1,CHR$ (7) : GOTO 
464û 

4660 RETURN 

4670 : 

4680 ‘ dessin contour ecran 

4690 ‘ 

4706 MODE 2:0RIGIN 0,0:FLOT G,0, 13: 
DRAWR 629,0: DRAUR 0,399:DRAWFR -639, 

O:DRAHR 0,-399 


4710 PLOT 3,3:DRAUR 633,0: DRAMR 0,3 > 


93: DRAWR -633,0:DRAMR 0,-393 


4720 PLOT 4,80:DRAKR 631,0:PLOTR 6, 


=3:DRAUR -631,0 


4730 PLOT 165,3: DRAWR 0,74: PLOTR 3, à 


0:DRAMR 0,-74 
4740 PLOT 440, 80:DRANR 0,317: PLOTR 
=3,0:DRAMR 0,-317 


4750 PLOT 440,355:DRAMR 194, 0:PLOTR : 


0,-3:DRAMR -194, 0 
4760 LOCATE 64,2:FRINT “FORMULES" 


4770 WINDOW #1,2,23,2,19:PAPER #1,1 : 


PEN #1,0:CL5 #1 


4780 LOCATE #1,3,3:PRINT#1, "CHOISIS : 


SEZ LA BONNE" 


4790 LOCATE #1,3,5:PRINT#1, “FORMULE 


AVEC LA 


4800 LOCATE #1,3,7:PRINT#1, "BARRE D > 


“ESPACEMENT. * 


4810 LOCATE #1,3,13:PRINT#i, "CECI F à 


AIT , VALIDEZ" 


4820 LOCATE #1,3,15:PRINT#i, "PAR EN > 


TER ." 


4830 WINDOW #2,57,79,5,19:FAPER #2, : 


O:PEN #2,1:CLS #2 


4840 WINDOW #4, 23,79, 22,24: PAPER #4 : 


OPEN #4,1:CLS #4 


4050 LOCATE 2,23:PRINT "COPY=RETOUR : 


AU MENU":RETURN 
4860 LOCATE #4,1,1:PRINT#4, "A: SURF. : 
,SECT. atLONG. b:LARG. r,R:RAYON 
d,D:DIAM. * 
4870 LOCATE #4,1,3:PRINT#4, "s:EPAIS 
. @:DIAG. u=PERI. h=HAUT. ";CHR 
$(176) ;": ANGLE" 
4880 RETURN 


4890 MODE Z:PRINT:PRINT " VALEUR EN 
TREE ERRONEE ... UNE TOUCHE POUR RE 
COMMENCER ...":CALL &BBO3:CALL &BBO 
6:PRINT CHR$ (7) :RUN@ 


AA 


?FG 
#Dk 


AD 


MN 


se 


UX 


>G6D 
PH 





Le Master Mind n’a plus 


aucun secret pOur Vous, 
et puis il y a bien 


longtemps que vous l'avez 
laissé de côté. Cela vient 


sans doute du fait qu'il 
faut être deux minimum 
pour y jouer. et vous 
êtes tout seul ! 

“Si seulement il existait 
un jeu du même genre, 


mais plus complexe, avec 


la possibilité d’y jouer 
seul, ça serait super 
chouette !”’ Vous avez 
pensé cela ? Alors c’est 
gagné ! 


LE CERVEAU 


Eric AUBRY 


Le Cerveau vous permet 


d’affronter un CPC impartial 


qui choisit au hasard parmi 
les dix possibles cinq formes 
que vous devrez découvrir et 
aligner dans le bon ordre en 
un minimum d’essais. Votre 
suggestion sera analysée et 
vous saurez combien de 
formes sont bien placées ou 
non. 

Trois niveaux de jeu sont 
prévus (16, 12 ou 8 coups) 


pour pousser votre logique à 


son extrême limite et ainsi 
vous faire devenir un de nos 
futurs... cerveaux ! 

Taper les deux premiers 
listings : une fois lancés, 


ceux-ci généreront des fichiers 


binaires (.BIN) qui seront 
exploités par le programme 
principal sauvé sous le nom 
de ‘‘cerveau”’. 
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LISTING 1 


20 LARGEUR CARACTERE 


40 ‘ 
50 DATA 01,09, 50,21,E1,70,CD,DI 
40 DATA BC, 0D, 50, 18,05,43, 48,41 
70 DATA D2,00,FE, 02, C0, CD, 06, B9 
80 DATA DD, 46, 00, 21, OÙ, 38, 3E, 00 
90 DATA BB, 28,09, C5, 06, 08, 23, 10 
100 DATA FD,C1,10,F7,11,D9, 50,01 
110 DATA 08, 00,ED, B0, CD, 09,89, DD 
120 DATA 7E,02,32,E5, 50, CD, CC, BB 
130 DATA FD,21,D9,50, 06, 08,D5,E5 
140 DATA CS,F5,FD, CB, OÙ, 7E, CD, 9B 
150 DATA 50,FD, CB, 00, 76, CD, 98, 50 
160 DATA FD, CB, 00, 6€, CD, 9B, 50, FD 
170 DATA CB, 00,66, CD,98, 50, FD, CE 
180 DATA 00,5€,CD,9E, 50, FD, CB, 00 
190 DATA 56,CD,98, 50, FD, CB, 00, 4E 
200 DATA CD,98,50,FD, CB, 00, 46, CD 
210 DATA 98,50,F1,C1,E1,D1, 28, 2B 
220 DATA F5,C5,D5,E5, CD, C9, BE, CD 
220 DATA CC, BB,E1,D1,C1,F1,FD,23 
240 DATA 10,AC,C9, 28, 19,05,ES, ED 
250 DATA 4B,E5,50,C5, 21,00, 00, 11 
260 DATA 01,00,CD,ED, BB,C1,08, 78 
270 DATA B1,20,F0,E1,D1,09,D5,E5 
280 DATA 3€,00, CD, DE, BB,ED, 4B,E5 
290 DATA 50,05, 21,00, 00, 11,01, 00 
300 DATA CD,ED,BB, C1, 0B, 78, Bi, 20 
310 DATA F0,3E,01,CD,DE, BB,E1,D1 
320 DATA C9,00,00, 00, 00, 00, 00, 00 
330 DATA 00,00, 00, 00, 00, 00 

340 ‘ 


350 LECTURE DES DONNEES ET CREATIO > 


N RSX 
360 ” 
370 MEMORY &4FFF 


380 FOR 1=1 TO 230:READ V$:POKE &4F >Y 


FF+I, VAL ("8") 2 TET+VAL ("&"4V$) :NE 
\T I 
400 SAVE"CERVEAU2",B, 43000, 230 


LISTING 2 


10 A=0 


20 READ A$:IF A$<>"-1" THEN POKE kb 


000+A, VAL ("&"+A$) :A=A+1: GOTO 20 
30 A=0 





ŸYN 


?FK 
)JA 


>6B 


40 READ A$:IF A$<2"-1" THEN POKE &é >HL 





2A0+A, VAL ("&"+A$) : A=A+1:G0TO 40 ELS 


E SAVE "CERVEAU4",E, &6OOD, &320 


50 ‘ CERCLE 

60 DATA OF, OF, OF, OF 
70 DATA 78,F0,F0,E1 
80 DATA 78,60, 70,E1 
90 DATA 78,80, 10,E1 
100 DATA 78,0,0,E1 
110 DATA 68,0,0, 61 
120 DATA 68,0,0, 61 
130 DATA 48,0,0, 21 
140 DATA 48,0,0, 21 
150 DATA 68,0, 0,61 
160 DATA 68,0,0, 8 
170 DATA 78,0,0,E1 
180 DATA 78,80, 10,E1 
190 DATA 78,E0,70,E1 
200 DATA 78,F0,F0,E1 
210 DATA OF,OF, OF, OF 
220 ‘  TRIANGLE 
230 DATA OF,0F, OF, OF 
240 DATA 78,F0,F0,E1 
250 DATA 78,E0,70,E1 
260 DATA 78,C0,30,E1 
270 DATA 78,00, 30,E1 
280 DATA 78,80, 10,E1 
290 DATA 78,80, 10,E1 
300 DATA 78,0,0,E1 
310 DATA 78,0,0,Ei 
320 DATA 68,0,0,61 
330 DATA 68,0,0,61 
340 DATA 48,0,0,21 
350 DATA 48,0,0,21 
360 DATA 48,0,0, 21 
370 DATA 78,F0,F0,E1 
380 DATA OF,OF, OF, OF 


A 


Q 


390 ‘  TRIANGLE INVERSE 


400 DATA OF,OF, OF, OF 
410 DATA 78,F0,F0,E1 
420 DATA 48,0,0,21 
430 DATA 48,0,0,21 
440 DATA 48,0,0,21 
450 DATA 68,0,0,61 
460 DATA 68,0,0,61 
470 DATA 78,0,0,E1 
480 DATA 78,0,0,E1 
490 DATA 78,80, 10,E1 
500 DATA 78,80, 10,E1 
510 DATA 78,00, 30,E1 
520 DATA 78,00, 30,E1 
530 DATA 78,E0,70,E1 
540 DATA 78,F0,F0,E1 
550 DATA OF,OF, OF, OF 
560 ‘ CARRE 

570 DATA O0F,0F, OF, OF 
580 DATA 78,F0,F0,E1 
590 DATA 78,F0,F0,E1 


© 
Q 


600 DATA 68,0,0, 61 
610 DATA 68,0,0,61 
620 DATA 68,0,0,61 
630 DATA 68,0,0,61 
640 DATA 68,0,0,61 
650 DATA 68,0,0,61 
660 DATA 68, 0,0, 61 
670 DATA 68,0,0,61 
680 DATA 68,0,0, 1 
490 DATA 68,0,0,61 
700 DATA 78,F0,F0,E1 
710 DATA 78,F0,F0,E1 
720 DATA OF, 0F,OF, OF 
730 LOSANGE 

740 DATA OF,OF,OF, OF 
750 DATA 78,F0,F0,E1 
760 DATA 78,E0,70,E1 
770 DATA 78,C0,30,E1 
780 DATA 78,80,10,E1 
790 DATA 78,0,0,E1 
800 DATA 68,0,0, 61 
810 DATA 48,0,0,21 
820 DATA 48,0,0,21 
830 DATA 68,0,0,61 
840 DATA 78,0,0,E1 
850 DATA 78,80, 10,E1 
860 DATA 78,C0,30,E1 
870 DATA 78,E0,70,E1 
880 DATA 78,F0,F0,E1 
890 DATA OF,OF, OF,OF 
900 ‘ … PENTAGONE 
910 DATA OF, 0F,OF, OF 
920 DATA 78,F0,FO,E1 
930 DATA 78,E0,70,E1 
940 DATA 78,00, 30,E1 
950 DATA 78,80, 10,E1 
960 DATA 78,0,0,E1 
970 DATA 68,0,0,61 
980 DATA 48,0,0,21 
990 DATA 48,0,0, 21 





1000 DATA 48,0,0, 21 s 
1010 DATA 48,0,0,21 


1020 DATA 68,0,0,61 
1030 DATA 78,0,0,E1 
1040 DATA 78,80, 10,E1 
1050 DATA 78,F0,FO,E1 
1060 DATA OF,OF,OF, OF 
1070 ‘ CTOILE 

1080 DATA OF, 0F,OF, 0F 
1090 DATA 78,F0,FO,E1 
1100 DATA 68,E0, 70, 61 
1110 DATA 48, 60, 60, 21 
1120 DATA 68,20, 40,61 
1130 DATA 78,0,0,E1 
1140 DATA 78,80, 10,E1 
1150 DATA 48,0,0,21 
1160 DATA 48,0,0,21 


20 


| 
(} 


1170 DATA 78,80, 10,E1 
1180 DATA 78,0,0,E1 
1190 DATA 68, 20, 40, 61 
1200 DATA 48, 60, 80, 21 
1210 DATA 68,E0, 70,61 
1220 DATA 78,F0,FO,EI 
1230 DATA OF,0F,OF, OF 
1240 ‘ ETOILE DAVID 
1250 DATA OF, OF, OF, OF 
1260 DATA 78,F0,F0,E! 
1270 DATA 78,E0,70,E1 
1280 DATA 78,00, 30,E1 
1290 DATA 78,80, 10,E1 
1300 DATA 48,0,0,21 
1310 DATA 48,0,0,21 
1320 DATA 68,0,0,61 
1330 DATA 68,0,0,61 
1340 DATA 48,0,0,21 
1350 DATA 48,0,0,21 
1360 DATA 78,80, 10,E1 
1370 DATA 78. C0, 30,E1 
1380 DATA 78,E0, 70,E1 
1390 DATA 78,F0,FO,E1 
1400 DATA OF, OF, OF, OF 
1410 ‘  SPIRALE 

1420 DATA OF, OF, OF, OF 
1430 DATA 78,F0,FO,E1 
1440 DATA 78,F0,FO,E! 
1450 DATA 78,80, 10,E1 
1460 DATA 78,70,E0,E1 
1470 DATA 68,C0, 30,61 
1480 DATA 68,80, DO, 61 
1490 DATA 68, A0, 50, 61 
1500 DATA 68, 80, 50, 61 
1510 DATA 68, C0, D0, 61 
1520 DATA 78,70, 80,61 
1530 DATA 78,80, 80,E1 
1540 DATA 78,F0,D0,E1 
1550 DATA 68,0, 30,E1 
1560 DATA 78,F0,F0,E1 
1570 DATA OF,OF, OF, OF 
1580 ‘ COEUR 

1590 DATA 0F,0F,OF, OF 
1600 DATA 78,F0,F0,EI 
1610 DATA 78,F0,FO,E1 
1620 DATA 78,30, C0,E1 
1630 DATA 68, 10,80, 61 
1640 DATA 48,0,0,21 
1650 DATA 48,0,0,21 
1660 DATA 48,0,0,21 
1670 DATA 48,0,0,21 
1680 DATA 68,0,0,61 
1690 DATA 78,0,0,E1 
1700 DATA 78,80, 10,E1 
1710 DATA 78, C0, 30,E1 
1720 DATA 78,E0,70,E1 
1730 DATA 78,F0,FO,E1 





1740 DATA OF,OF,OF, OF 
1750 ‘  PION BLANC 

1760 DATA OF, OF, LE, 87 
1770 DATA 78,E1,78,E1 
1780 DATA 78,E1,78,E1 
1790 DATA 1E,87,0F, OF 


DYF 
?PB 
ND 
NE 
PE 


1800 ‘  PION NOIR »YB 
1810 DATA OF, 0F,OE, 07 >M4 
1820 DATA 08, 01,08, 01 NN 


1830 DATA 08, 01,08, 01 
1840 DATA 0E, 07, OF, OF 
1650 END 

1860 DATA DD,6E,0,DD,66,1,22,7C, A0, > 
DD, 6€, 2, 2, DD, 6b, 4,25, CD, 1A, BC, 22, 7 
E,40,6, 10,05, 24,70, A0,ED,5B, 7E, A0, 1 
*4,0,ED, B0, 2A, 7E, A0, CD, 26, BC, 22, 7E, 
A0,21,4,0,ED,B, 7C, A0, 19, 22 

1870 DATA 7C, A0, C1, 10, DC, C9, DD, 6E, 0 ) 
.DD,66,1,22, 70, A0, DD, &E, 2, 20, DD, 6b, 
4,25, CD, 1A,BC, 22, 7E, 40, 6,8, C5, 2A,7C 
A0, ED, 58, 7€, A0, 1,2, 0,ED, 0, 2A,7E, À 
0, CD, 26, BC, 22, 7E, A0, 21, 2,0,ED 

1880 DATA 58, 7C, A0, 19,22, 7C, A0, C1, 1 
0,DC,C9,-1 

1890 DATA DD,6E,0,DD, 66,1,22,1C,63, 
DD, 6€, 2, 20, DD, 66, 4,25, CD, 1A, BC, 22, 1 
E,63,6,10,05,2A,1C, 63,ED,5B, 1E,63, 
1,4,0, ED, B0, 2A, 1E,63, CD, 26, BC, 22, 1E 
,63,21,4,0,ED,5B, 10,63, 19,22 

1900 DATA 1C,63,C1, 10,DC, C9, DD, 6E, 0 : 
.DD,66,1,22, 1,63, DD, &E, 2, 20, DD, 66, 
4,25, CD, 14, BC, 22, 1E,63,6,8,C5, 2A, 1C 
.63,ED,58, 1E,63, 1,2,0,ED, B0, 2A, ÎE, 
3,CD, 26, BC, 22, 1E,63, 21,2,0,ED 

1910 DATA 5B, 10,63, 19,22, 1C,63,C1,1 à 
0,DC,C9,EF,F, 20,EC, -1 


ra 
æ] 





10 HANNAH 
HN 
20 ‘## 


LE CERVEAU: 
#+ 

30 ‘#4 par Eric AUBRY LC 
#+ 

40 HHHMEHEHBEBAEHOBHEHHEHE )LD 

HER 

50 GOSUB 3620 >HH 

60 MEMORY &4FFF:LOAD"CERVEAU2",&500 >Q7 

0:CALL 85000 

70 LOAD"CERVEAU4",&6000:POKE &64D0, >DT 

i 

80 FOR 1=0 TO 20:READ A$:A=VAL("&"+ >BK 

A$):POKE &6600+1, A: NEXT 


90 DATA DD, 4€, 00, DD, 46, 01,DD,5E,02, )TV 


>PG AD, 56, 03, DD, 6E, 04, DD, 66, 05, ED, BB, C9 


100 INK O,0:INK 1,24:INK 2,15: INK 3 2CY 
8 

L 

110 CLEAR:PAPER O:PEN 1:MODE 1 2ŸR 
120 LOCATE 6,13:FRINT"VOULEZ-VOUS L >CX 
ES EXPLICATIONS ?" 

130 AS=UPPERS(INKEYS): IF A$="" THEN KZ 
GOTO 130 


140 IF A$="O" THEN GOTO 2920 >UQ 
150 IF A$C"N" THEN GOTO 130 >UR 
160 GOTO 3490 GA 
170 GOSUB 3690 >üH 
180 CLS:BORDER 10 >MQ 








190 WINDOW #1,2, 20,2, 24 >0B 
200 MINDOW #2, 22,39, 2, 18 RE 
210 MINDON #3, 22,35, 20, 24 >RD 
220 WINDOW#4, 37,39, 20, 24 >RB 
230 PAPER#1,2:PAPER#2, 2:PAPER#3,2 DEV 
240 CLSH1:CLS#2: CLSH3:CLSH4 y 


250 PLOT 10,386, 1:DRAMR 0,-376,1:DR VX 
AWR 314,0, 1:DRAWR 0,378, 1:DRANR -31 
4,0,1 
260 PLOT 330,386, 1:DRAWR 0,-280,1:D >2L 
RAUR 298,0, 1:DRAWR 0,282, 1:DRAWR -2 
98,0,1 
270 PLOT 330,100, 1:DRAWR 0,-90, :DR WF 
AWR 234,0, 1:DRANR 0,90, 1:DRAUR -234 
0,1 
280 PLOT 570,100, 1:DRAWR 0,-90,1:DR >UC 
AWR 58,0, 1:DRAWR 0,90, L:DRAMR -58, 0 

1 

3 
290 PLOT 192,382, 3:DRAMR 0,-366,3:P )GF 
LOT 512,382, 3: DRAR 0,-272,3 
300 6OSUB 790 HI 
310 X=336:Y=46:G0SUB 740 STT 
320 FLAGCONT=0:60SUB 830:60SUB 920 CN 
330 PERD=0:COUP3=0:COUP=0: CHOIX=0:N >JQ 
B=1 
340 IF COUP3=COUPMAX THEN GOTO 2670 >DZ 


350 A$=INKEYS$: IF A$="" THEN GOTO 35 >BC 
0 





14 


21 


| 520 IF X=336 AND Y=46 THEN GOSUB 77 





360 IF A$=CHRS(&F3) THEN GOTO 430 
370 IF A$=CHR$(&F2) THEN GOTO 490 
380 IF A$=CHR$(13) THEN GOSUB 550 
390 IF A$=CHRS(224) THEN SOUND 1,50 
0,20:CL5#1:ORIGIN 0,0:PLOT 192,382, 
3:DRAMR 0, -366, 3: FLAGCONT=FLAGCONT 
XOR 1:60SUB 830:60T0 1420 

400 IF A$=CHR$ (49) THEN GOSUE 2060: >KN 
GOTO 2170 

410 IF AS=CHRS(&7F) THEN SOUND 1,70 
0,20:60SUB 2340 

420 GOTO 340 

430 IF X€528 AND Y=46 THEN GOSUB 77 
0:X=X+48:G0T0 470 

440 IF X=528 AND Y=46 THEN GOSUB 77 
0:X=336:Y=94:60T0 470 

450 IF X{528 AND Y=94 THEN GOSUB 77 ) 
0:X=X+48:G0T0 470 

460 IF X=528 AND Y=94 THEN GOSUB 77 
0: X=336: Y=46 


470 GOSUB 740 }JB 
480 GOTO 340 >1F 


490 IF X>336 AND Y=94 THEN GOSUB 77 
0:X=X-48:G0TO 530 

900 IF X=336 AND Y=94 THEN GOSUB 77 }ZN 
0:X=528:Y=46:G0TO 530 

910 IF X>336 AND Y=46 THEN GOSUB 77 : 
0:X=X-48:G0TD 530 


0: X=528: Y=94 


930 GOSUB 740 ’HJ 
540 GOTD 340 IC 
990 ‘#+ AFFICHAGE CHOIX JOUEUR TA 


560 1F CHOIX=S THEN SOUND 1,250, 20: 
CHOIX=0: COUP=COUP+1 : COUP3=COUP3+1 : 6 
OSUB 2250:NB=1:G0T0 990 

570 IF COUP=8 THEN LOCATE #2,22,18: >KC 
PRINT #2, CHRS (10) :DRIGIN 0,0:PLOT 5 
12,382, 3:DRAWR 0, -270, 3: COUP=COUP-1 

580 IF X=336 AND Y=46 THEN CHOIX1(N AV 
B)=1:AD=&6000:60T0 680 

590 IF X=384 AND Y=46 THEN CHOIX1(N AE 
B)=2:AD=46040:G0TO 680 

400 IF X=432 AND Y=46 THEN CHDIX1(N AV 
B)=3:AD=&6080:60T0 680 

410 IF X=480 AND Y=46 THEN CHOIXL(N AM 
B)=4:AD=&b0C0:60TO 680 

420 IF X=528 AND Y=46 THEN CHOIX1(N AY 
B)=5:AD=&6100:60T0 680 

630 IF X=336 AND Y=94 THEN CHDIX1(N AE 
B)=6:AD=&6140:60T0 680 

640 IF X=384 AND Y=94 THEN CHOIX1(N AP 
B)=7:AD=&b180:60T0 680 

850 IF X=432 AND Y=94 THEN CHOIX1(N >AX 
Bi=8:AD=&b1C0:60T0 680 

660 IF X=480 AND Y=94 THEN CHOIX1(N >AH 
B)=9:AD=46200:60T0 680 





670 IF X=528 AND Y=94 THEN CHOIX1 (N >Rv4 1030 NEXT 


B)=10:AD=&6240 
680 CALL &62A0,22+CH0IX#2, 2+COUP#2, 
AD 


ET 


690 CHOIX=CHOIX+i ?N4 
700 SOUND 1,100, 20 LN' 
710 NB=NB+] WF 
720 RETURN ?1E 
730 ‘++ DESSIN DU CADRE SELECTION TA 
740 ORIGIN 0,0:PLOT X,Y,3:DRAKR 0,- ET 


30,3:DRAWR 30,0, 3:DRAWR 0, 30, 3: DRAW 


R -30,0,3 
750 RETURN >1H 
760 ‘#* EFFACEMENT DU CADRE SELECTI >TD 


ON 
770 ORIGIN 0,0:PLOT X,Y, 1:DRAWR 0,- 
30, 1:DRAUR 30,0, 1:DRAR 0,30, 1:DRAW 


?EK 


R -30,0,1 

780 RETURN *AA 
790 ‘#* AFFICHAGE DES FORMES >TG 
800 FOR 1=0 TO 4:CALL &é2A0,22+I#3, VX 
23, k6000+ 1464: NEXT 

810 FOR I=0 TO 4:CALL W62A0,22+I#3, VA 
20,&b140+I#64:NEXT 

820 RETURN >1F 


830 ‘*## CONTOUR CHOIXJEU/CONSUTATIO 
N 

840 ORIGIN 0,0:IF FLAGCONT=1 THEN 6 
OTO 860 

850 IF FLAGCONT=0 THEN GOTO 890  >YA 
80 PLOT 334,384,0:DRAMR 0,-274,0:D >ZB 
RAWR 290,0,0:DRAUR 0,274, 0:DRAWR -2 
90,0, 0 

870 PLOT 14,384, 1:DRAMR 0,-370,1:DR >YV 
AUR 306,0, 1:DRAWR 0,370, 1:DRAWR -30 
&,0,1 

880 RETURN +AB 
890 PLOT 14,384, 0:DRAWR 0,-370,0:DR >YR 
AWR 306,0, 0:DRAWR 0, 370,0:DRAWR -30 
6,0,0 

900 PLOT 334,384, 1:DRAMR 0,-274,1:D >1B 
RAWR 290,0, 1:DRAUR 0,274, 1:DRAWR -2 


?TB 


JD 


90,0,1 

910 RETURN >1F 
920 ‘*# CHOIX ORDINATEUR >TB 
930 ‘RANDOMIZE TIME >TC 
940 FOR 1=0 TO 4 WC 
950 ACL)=INT (RND#10) +1 >aT 
960 POKE &6320+I,A(I) >PA 
970 NEXT )FB 
980 RETURN >AC 
990 ‘#4 ANALYSE CHOIX JOUEUR TJ 
1000 FOR 1=0 TO 4:A(1)=0:R(I+1)=0:N DEJ 
EXT 

1010 FOR 1=0 TO 4 >BC 


1020 IF CHOIX1(1+1)=PEEK(&6320+1) T >XK 
HEN A(D)=1:R(I+1)=2 





1040 IF R(1)=2 AND R(2)=2 AND R(3)= ; 


2 AND R(4)=2 AND R(5)=2 THEN G60TO 2 
410 

1050 J=1 

1060 1=0 

1070 IF R(J)=2 THEN 1=0:G60SUB 1160: 
G6OTO 1070 

1080 IF A(I)=1 THEN GOTO 1150 

1090 IF CHOIX1(J)=PEEK(kb320+1) THE 
N GOTO 1110 


1100 IF 1=4 THEN GOSUB 1160:G0T0 10 > 


6Ù ELSE I=I+1:60T0 1080 

1110 A(I)=1 

1120 R(J)=1 

1130 IF J=5 THEN GOTD 1170 ELSE J=J 
+i 

1140 GOTO 1060 


1150 IF 1=4 THEN GOSUB 1160:60T0 10 ; 


60 ELSE I=I+1:GDT0 1080 


1160 IF J=5 THEN GOTO 1170 ELSE J=J } 


+1:RETURN 

1170 I=1:J=1:AD=46320+10*COUP3 

1180 IF R(I)=1 THEN POKE AD+J-1,R(I 
}:60T0 1210 


1190 IF R(I)=2 THEN IF I£36 THEN I= ; 


I+1:60T0 1180 


1200 IF R(I)=0 THEN IF 126 THEN PO > 


KE AD+J-1,R(I):G0TD 1210 

1210 IF I£>6 THEN J=J+1:1=1+1:G0T0 
1180 

1220 I=1 

1230 IF R(I)=2 THEN POKE AD+J-1,R(I 
}:60T0 1260 


1240 IF R(I)=1 THEN IF I£>6 THEN I= : 


I+1:60T0 1230 


1250 IF R(I)=0 THEN IF I<>6 THEN I= 


I+1:G0T0 1230 

1260 IF I<>6 THEN J=J+1:1=1+1:G60T0 
1230 

1270 J=1 

1280 FOR 1=10 TO & STEP -i 

1290 POKE &6325+10*COUP3S-T, CHOIX 1 (J 
} 

1300 J=J+i 

1310 NEXT 

1320 I=5:K=5 

1330 JEU<PEEK (&6325+ (COUP3-1)#10+1) 


1340 IF JEU=1 THEN AD=k6280: J=1 
1350 IF JEU=2 THEN AD=&6290: J=2 
1360 IF JEU=0 THEN J=0 

1370 IF 1=10 THEN GOTO 1410 ELSE I= 
I+i:K=K+1 

1380 IF J=0 THEN K=K-1:60T0 1330 
1390 CALL &b2DE, 28+K, 1+COUP#2, AD 
1400 IF I€>10 THEN GOTO 1330 


22 


1410 SOUND 1,500,20:60T0 340 

1420 ‘#* RECAPITULATIF JEU 

1430 IF COUP3>11 THEN COUP4=1 1: SURP 
LUS=1 ELSE COUP4=COUP3: SURPLUS=0 
1440 COUP2=COUP4:COUP1=1 

1450 IF COUP2=0 THEN GOTO 1610 

1460 FOR I1=0 TO 4 

1470 JEU=PEEK (&6325+ (COUP1-1)#10+1) 


1480 GOSUB 2810 


1500 NEXT 

1510 1=5:K=5 
NF | 19520 JEU-PEEK (k6325+ (COUP1-1)#10+1) 
?QE 
CA | 1530 IF JEU=1 THEN AD=&6280: J=1 
1540 IF JEU=2 THEN AD=4k6290: J=2 


1550 IF JEU=0 THEN J=Ù 


Iti:K=K+] 

1570 IF J=0 THEN K=K-1:G0T0 1520 
1580 CALL &b2DE,9+K, COUP1#2+1, AD 
1590 IF 1<>10 THEN GOTO 1520 





T0 1450 


20:FLAGCONT=FLAGCONT XOR 1:G0SUB 83 
0:60T0 340 


620 


00,20: FLAGCONT=FLAGCONT XOR 1:G60SUB 
830:G0T0 340 


1660 IF A$=CHR$(&9) THEN GDTO 2060 
1670 GOT 1620 

1680 ‘HF DESCENTE 

1690 IF COUP4=COUP3 THEN SURPLUS=0: 
60TO 1620 ELSE COUP4=COUP4+1 : MONTEE 
=0 

1700 LOCATE#1,2, 24: PRINT#1,CHR$ (10) 
:PLOT 192,382,3: DRAMR 0,-366,3 

1710 FOR 1=0 TD 4 

1720 JEU=PEEK (&6325+ (COUP4-1)#10+1) 





1730 GOSUB 2810 

1740 CALL %620, (1+1)#2,22, AD 

1750 NEXT 

1760 1=5:K=5 

1770 JEU-PEEK (46325+ (COUP4-1) #10+1) 


>PG 
KL 





2YX 
7 
>UQ 


1790 IF JEU=2 THEN AD=k6290: J=2 


1780 IF JEU=1 THEN AD=&6280: J=1 
fe IF JEU=0 THEN J=0 


1490 CALL &62A0,(I+1)#2,COUP1*2,AD 


1560 IF 1=10 THEN GOTO 1600 ELSE [= > 


1800 COUP2=COUP2-1:COUP1=COUP1+1:60 : 


1610 IF SURFLUS=0 THEN SOUND 1,500, > 


1620 A$=INKEYS:IF A$="" THEN GOTO 1 ; 


1630 IF A$=CHR$(224) THEN SOUND 1,5 : 


1640 IF A$=CHR$(&F1) THEN GOTO 1680 ; 


1650 IF A$-CHR$(&FO) THEN GOTO 1860 > 


NT 
>XK 
UD 


?VK 
FXX 


= 
per] 


FF 
[=] 


È 


>LX 
>NA 
>YH 
AG 


LU 


& 


BK 
>CD 


)XE 
VX 
?LE 
?>CD 
>CJ 


»YB 
YF 
DPF 


1810 IF 1=10 THEN GOTO 1850 ELSE I= >KU 
I+i:K=K+1 

1820 IF J=0 THEN K=K-1:60T0 1770 
1830 CALL &b2DE,94K, 23, AD 


3YE 
TV 


1840 IF I<>10 THEN GOTO 1770 >UH 
1850 60TO 1620 >NA 
1860 ‘HHHHHHEHHEE MONTEE >YH 
1870 IF MONTEE=1 THEN GOTD 1890 >YQ 


PB 
>1D 


1880 COUPS=COUP4-10 
1890 IF COUPS=1 THEN GOTO 1620 ELSE 
COUPS=COUPS-1 : COUP4=COUP4-1 : MONTEE 
=1 

1900 LOCATE#1, 1, 1:PRINT#1,CHRS (11): RD 

LOCATE# 1, 1, 1:PRINT#1, CHRS (11) :PLOT 
192, 382, 3: DRAUR 0,-366, 3:LOCATE#1, 1 
,23:PRINT#1," “ 

1910 FOR 1=0 TO 4 

1920 JEU=PEEK (&6325+ (COUPS-1)#10+1) 


1930 GOSUB 2810 
1940 CALL &b2A0, (I+1)#2,2, AD 


1950 NEXT LG 
1960 I=5:K=5 ?CF 
1970 JEU=PEEK (&6325+ (COUPS-1)#10+1) ?CM 
1980 IF JEU=1 THEN AD=&6280: J=1 3YD 
1990 IF JEU=2 THEN AD=&6290: J=2 >YH 
2000 IF JEU=0 THEN J=0 >PY 
2010 IF 1=10 THEN G60TO 2050 ELSE I= >KD 


Iti:K=K+1 


2020 IF J=0 THEN K=K-1:60T0 1970  >YZ 
2030 CALL &O2DE, 94,3, AD >RP 
2040 IF 14310 THEN GOTO 1970 >UC 
2050 G6OTO 1620 >MD 


2060 ‘HE SOLUTION ?YA 
2070 CLS#3 >LD 
2080 LOCATE#S, 1, 1:PRINT#3, " Voic >ER 
i la Solution: 

2090 FOR 1=0 TO 4 CB 
2100 JEU=PEEK (&6320+1) QU 
2110 GOSUB 2810 7WH 
2120 CALL &62A0,24+(I#2),22,AD ?WW 
2130 NEXT >KH 
2140 LOCATE#S,5,5:PRINT#S, "<ENTER:" )EB 
2150 WHILE INKEY$<C>CHR$ (13) : WEND BG 
2160 RETURN FC 
2170 CLS#1:LOCATE#1,2, 10:PRINT#1, "V >HJ 
oulez-vous refaire“ 

2180 LOCATE#1,4,12:PRINT#i, "une par ?NE 
tie ?" 

2190 A$=UPPERS$ (INKEY$) >RB 
2200 IF A$=""THEN GOTO 2190 >UP 
2210 IF A$="0" THEN 60TD 110 >UY 
2220 IF A$="N" THEN MODE 2:END >WQ 
2230 GOTO 2190 >MG 
2240 END >Y6 





2250 ‘HF NOMBRE DE COUPS 
2260 SCORES=STRS (COUP3) 

2270 IF COUP3<10 THEN SCORE$="0"+6C 
DRES: SCORES=LEFTS (SCORES, 1) +RIGHTS ( 
SCORES, 1) 

2280 SCORES=RIGHTS (SCORES, 2) 

2290 ORIGIN 576,60 

2300 CALL 85015,3,ASC(LEFTS$ (SCORES, 
1)) 

2310 ORIGIN 603,60 

2320 CALL &5015,3,ASC (RIGHTS (SCORES$ 
1)) 

2330 RETURN 

2340 ‘##HHHHHHHE CORRECTION 

2550 PAPER 2 

2360 IF NB=1 THEN RETURN 

2370 NB=NB-1:CHOIX=CHOIX-1 

2380 LOCATE 22+CH0IX#2, 2+C0UP+2:PRI 
NT LI u 

2390 LOCATE 22+CH0IX#2, 3+COUP#2:PRI 
NT u “ 

2400 RETURN 

2410 ‘HAE GAGNE 

2420 CLS#3:SOUND 1,400, 15: SOUND 1,3 
00,15: SOUND 1,200, 15:SOUND 1,100, 15 
:SOUND 1,200, 19: SOUND 1, 100,15 
2430 LOCATE#S, 1, 2:PRINT#S, " 
TE 

2440 FOR I=0 TD 4 

2450 JEU=PEEK (k6320+1) 

2460 GOSUB 2810 

2470 CALL &62A0,24+(1#2),22,AD 
2480 NEXT 

2490 WHILE INKEY$<>"":WEND 
2500 CLS#1 

2510 LOCATE#1,6,3:PRINT#1, "BRAVO !! 
qu 

2520 LOCATE#1,3,6:PRINT#1, "VOUS AVE 
1 GAGNE " 

2530 LOCATE#1,9,8:PRINT#]1, "EN" 

2540 LOCATE#1,6, 10: PRINT#1, SGORES$; " 
COUPS" 


EXAC 


2550 LOCATE#1,2, 10: PRINT#1, “Voulez- : 


vous voir le 


2560 LOCATE#1,4,12:PRINT#1,"classen ; 


ent ?" 

2570 A$=UPPERS (INKEY$) 

2580 IF A$="" THEN GOTD 2570 

2590 IF A$="0" THEN GOTO 3920 

2600 IF A$<>"N" THEN GOTO 2570 
2b10 GOSUB 4340 

2620 LOCATE#1,2,10:PRINT#1, “Voulez- 
vous refaire" 

2630 LOCATE#1,4,12:PRINT#1, “une par 
tie ?" 

2640 IF A$="0" THEN GOTO 110 

2650 IF A$="N" THEN :MODE 2:END 


23 


?YB 
TK 
#KT 


XZ 
>MA 
?FJ 


MG 
GK 


:FB 
?YB 
>AÀ 
?TT 
?W 
>KH 


#KK 


?EK 
2XK 
?LB 


>6J 


CA 
?QC 
>XF 
ME 
?LF 
VX 
?KK 
>EG 


PB 


NT 
MT 











2660 GOTO 2640 ?ND 
2670 ‘#HHEHHHHERHE PERDU +YH 
2680 GOSUB 2060 >XG 
2690 CLS#i 3Lk 
2700 PRINT#1," Dommage, “:PRINT# 2FE 
i 

2710 PRINT#I," Vous n'avez pas":P PY 
RINT#I 

2720 PRINT#I,"rtussi @ trouver la" DK] 
2730 PRINT#1," SOLUTION" 3XL 
2740 LOCATE#1,2,10:PRINT#1,"Voulez- >BD 
vous refaire" 

2750 LOCATE#1,4,12:PRINT#1, "une par ?NH 
tie ?" 

2760 A$=UPPERS$ (INKEY$) ?RE 
2770 IF A$="" THEN GOTD 2760 >UU 
2780 IF A$="0" THEN GOTO 110 >UL 
2790 IF A$="N" THEN MODE 2:END ?WD 
2800 GOTO 2760 NC 
2810 ‘####HH#4 TRADUCTION Numero- :YD 


Adresse 
2820 IF JEU=1 THEN AD=&6CO0:RETURN CF 
2830 IF JEU=2 THEN AD=46040: RETURN 
2840 IF JEU=3 THEN AD=86080: RETURN 
2850 IF JEU=4 THEN AD=&k60C0 RETURN 
2860 IF JEU=5 THEN AD=&6100: RETURN 
2870 IF JEU=6 THEN AD=&6140:RETURN 
2880 IF JEU=7 THEN AD=&61B0: RETURN 
2890 IF JEU=8 THEN AD=&61C0:RETURN 
2900 IF JEU=9 THEN AD=&6200: RETURN 
2910 IF JEU=10 THEN AD=&6240: RETURN 


CH 
>CQ 
?CX 
CD 
?CT 
?CQ 
CA 


2920 °HHHHHHHHEHE EXPLICATIONS 2YF 
2930 MODE 2:1INK 1,0 >ML 
2940 TEXT$="LE CERVEAU" :FOR I=i TO DJ 
8 

2950 FOR J=i TO LEN(TEXTS) 

2960 ORIGIN 300-(1#45)+J#(8#1),414- 
I#16 

2970 CALL 85015, 1,ASC(MID$(TEXTS,J, 
1)):SOUND 1,INT((RND(i)+1}#100), 10 

2980 NEXT J 

2990 NEXT I 

3000 LOCATE 32,9:PRINT"par AUBRY Er 
ic" 

3010 WINDOW#1,2,79,10,24:PAPER#1, 1: >TA 
PEN#1,0:CLS#1 ( 

3020 PRINT#I," Ce jeu est directe ?LQ 
sent inspir{ du c{l)bre MASTER-MIND 
.Sauf qu'ici nous ne jouons pas à 

vec des combinaisons de couleurs ma 

is de formes .L'ordinateur nous 
propose de choisir parais 10 forme 

s possibles ." 

3030 PRINT#I ?GC 

3040 PRINT#I," Le but du jeu est d »LB 
e d{couvrir une combinaison de 5 fo 


>UP 
>EA 


RE 
WF 


WF 
KZ 








rmes que l'ordinateur a choisi ,et 
ce le plus rapidement possible ." 
3050 PRINT#1 
3060 PRINT#1," Four faire votre ch 
oi*x parmis les formes proposies ,il 
suffit de d{placer le carr{ de 
Stlection jusqu'@ la forme voulue a 
vec les fliches gauche et droi 
te puis de la valider par la touche 
“ENTER” ." 
3070 PRINT#1:PRINT#1," 
ous voulez effacer une forme prictd 
emment valide ,appuyez sur la t 
ouche ‘DEL'." 


3080 LOCATE#1,49, 14: PRINT#i, "Presse : 


z <ENTER?" 


3090 INK 1,24:HHILE INKEV$C>CHRS (13 : 


}: WEND 

3100 CLS#1 

3110 PRINT#1," Lorsque vous voule 

z revoir les coups anttrieurs ,appu 

yez sur la touche COPY" .Sit 

ous les coups peuvent [tre affichis 
l'ordinateur revient auto-  -mat 
iquement en mode jeu ." 

3120 PRINT#I 

3130 PRINT#I," Si tous les coups n 

e peuvent [tre affich{s ,vous pouve 

rh 

3140 PRINT#I 

3150 PRINT#1," 
sCHR$(240)3"": 

es coups jouts" 

3160 PRINT#1 

3170 PRINT#1," - pressez 

3CHR$(241);"": vous descendez dans 

les coups jouts" 

3180 PRINT#1 

3190 PRINT#1." - pressez ‘€ 

OPY' : vous revenez en mode jeu" 


- pressez 
vous remontez dans | 


1 


3200 LOCATE#I,49,14:PRINT#1, "Presse > 


z ENTER?" 

3210 WHILE INKEY$<C>CHR$ (13) : WEND 
3220 CLS#i 

3230 PRINT#i," Si vous ‘donnez vo 
tre langue au chat’ ,appuyez sur la 
touche TAB‘ .L'or- -dinateur af 
fichera la solution ." 

3240 PRINT#I 

3250 PRINT#," Le nombre de coups 
maxiaua dont vous disposez d‘pend 
du niveau que vous avez choisi 
3260 PRINT#1 

3270 PRINT#1," 

- Dtbutant..........i6 coups" 

3280 PRINT#1 


Si jamais v 


tu 


?GE 
HA 


?BJ 


>GF 
LH 


6H 
LR 

















A 3290 PRINT#1," 


- Confirmt....…, 

3300 PRINT#I 

3310 PRINT#1," 

- Expert........... .0B coups" 

3320 PRINT#I 

3330 PRINT#I," Le nombre de coups 
jouts est en permanence affichi da 

ns le bas de l'{cran ." 

3340 LOCATE#1,49, 14: PRINT#1, "Presse 
z ENTER" 

3350 WHILE INKEYS$CHRS$ (13) : WEND 

3360 CLS#1 

3370 PRINT#I," Four valider une c 
ombinaison ,appuyez sur ENTER" 

3380 PRINT#I 

3390 PRINT#1," L'ordinateur ripond 

@ la combinaison que vous lui avez 


...12 coups" 


soumis par des pions blancs et de 
s pions noirs ." 

3400 PRINT#I 

3410 PRINT#1," - Fion blan 


c : la couleur est prtsente dans la 
combinaison 6 trouver mais 
elle est mal placte ." 

3420 PRINT#I 

3430 PRINT#1," - Pion noir 

: la couleur est prisente dans la 
cosbinaison 6 trouver et e 
lle est bien placte ." 

3440 PRINT#I 

3450 PRINT#i," 

Voilé ,@ vous de jouer !" 


3460 LOCATE#1,49,14:PRINT#1, "Presse ; 


z <ENTER?" 

3470 WHILE INKEYS$C>CHR$ (13) :WEND 
3480 MODE 1:G0T0 160 

3490 ‘#4 NIVEAU DE JEU 
3500 CLS 

3510 LOCATE 11,2:PRINT “Quel niveau 
de jeu" 


3520 LOCATE 11,4:PRINT " disirez-v 
ous ?" 
3530 LOCATE 1,10:PRINT" {1}. à 


DEBUTANT... 16 coups":PRINT 
3540 PRINT" <2}... CONFIRME... 
12 coups":PRINT 


39550 PRINT" <3r... EXPERT 
08 coups": PRINT 

3560 A$=INKEYS$ 

3570 IF A$<"i" OR A$>"3" THEN GOTD 
3560 


3580 IF A$="{" THEN COUPMAX=16 
3590 IF A$="2" THEN COUPMAX=17 
3600 IF A$="3" THEN COUPMAX=B 
360 GOTO 170 


:LK À 16 


>6C 
JY 


?GE 
FN 


Da 


TX 


BE 
LE 
3HJ 


HA 
UD 


>6D 
NV 


?GF 
>VX 


WC 


>WJ 
?CQ 


?XK 
>XH 
NE 
FD 





3630 SYMBOL AFTER 64 PC 
3640 SYMBOL 64,460, 410, &7B,C,&7C,& >GV 
CC, 76 

3650 SYMBOL 123,46, LB, 43C, bb, L7E, & 
80, &3C 

3660 SYMBOL 125, 460,410, 830, kb, K7E 
,L60, RC 

3670 SYMBOL 91,418,424,&3C, kbô,K7E, >HY 
&b0,&3C 

3680 RETURN >GA 
3690 ‘HkkHHHHEE TABLEAU DE CLASGSEN >ZA 
ENT 


?6B 


JB 


3700 MODE i PF 
3710 LOCATE 13,10:FRINT"Donnez votr >UC 
e non :" 

3720 LOCATE 16,12:PRINT"........, ." BU 
3730 J=0:B$="" > JH 
3740 LOCATE 16+J,12:FRINT CHR$(24): PR 
“, "3 CHR$ (24) 

3750 AS$=UPPERS CINKEY$): IF A$="" THE >MD 
N GOTD 3750 

3760 IF A$=CHR$(&7F) THEN GOTO 3840 >AH 
3770 IF A$=CHR$(13) THEN GOTD 3896 :2V 
3780 IF J=10 THEN GOTD 3750 >U4 
3790 LOCATE 16+J,12:PRINT A$ WE 
3800 J=J+1 FE 
3810 B$=B$+A$ AK 
3820 IF J=10 THEN GOTD 3750 >UQ 
3830 GOTO 3740 >NF 
3840 IF J=0 THEN GOTO 3750 ?TX 
3850 IF J=10 THEN GOTD 3870 >UX 
3860 LOCATE 16+J,12:PRINT"." ?WB 
3870 B$=LEFTS (B$,LEN(B$)-1) >VJ 
3880 J=J-1:G0TD 3740 ?NM 
3890 B$=BS$+STRINGS$ (10-LEN(B$) ,"#") BA 
3900 NOM$=B$ ?CA 
3910 MODE Î:RETURN >NV 
3920 ‘HHEHHEHHHEE CLASSEMENT >Y6 
3930 NB=PEEK (&b4D0) : IF NB=1 THEN A= MH 
1:60T0 4030 

3940 FOR A=1 TO NE LD 
3950 SCORE=PEEK (k64D0+A#1 1) WF 


3960 IF COUFS<=SCORE THEN INF=1:G0T :JF 
0 3980 

3970 NEXT A:INF=0:G0TD 4020 VA 
3980 INF=1:ADR=&64D0+A+ (A-1)#10:LON >RZ 
G=&65AD-ADR+1 


3990 FOR I=0 TO 10 LA 
4000 CALL &6600, &6SAD, &ESAE, LONG  >2ZF 
4010 NEXT KG 
4020 IF INF=0 THEN A=NB >QF 
4030 FOR 1=1 TO 10 LB 
4040 AS=MIDS (NOMS, I, 1) QC 


7EK Ÿ, 5620 CHENE CARACTERES FRANCA >YD | 4050 POKE &64D0+(I-1)+A+((A-1)#10), >GD 


24 


Valable POU" 


ASC (A$) 

4060 NEXT I VF 
4070 MODE 2: INK 1,0 >MH 
4080 TEXT$="LE CERVEAU":FOR 1=1 TO DZ 
2 

4690 FOR J=1 TO LEN(TEXTS) UL 
4100 ORIGIN 90-(1#45)+J#(8#1),250-1 >DF 


#16 

4110 CALL &5015,I,ASC(MIDS(TEXTS,J, >RR 
1): SOUND 1, INT ((RND(1)+1)#100), 10 
4120 ORIGIN 520-(1445)+J4 (841) ,250- > 
I#16 

4130 CALL &5015,1,ASC(MIDS(TEXTS,J, 2R 
133: SOUND 1, INT ((RND(1)+1)#100) , 10 
4140 NEXT J 

4150 NEXT I 

4160 FOR J=1 TO LEN(TEXTS) 

4170 ORIGIN 45+J48, 202 

4180 CALL 45015,1,ASC(MID#(TEXTS,J, > 
1)):SOUND 1, INT (RND(1)+1)#100), 10 
4190 ORIGIN 475+J48, 202 ; 
4200 CALL 45015, 1,ASC(MIDS(TEXTS,J, RQ 
1): SOUND 1, INT ((RND(1)+1)#100), 10 


4210 NEXT J VD 
4220 TEXT$="Appuyez sur une touche" :MQ 
4230 FOR J=1 TO LEN(TEXTS) ?UG 
4240 ORIGIN 40+J#24, 19 >QF 





A 
4256 CALL &95015,3,ASC(MID$(TEXTS,J, 


13): SOUND 1, INTC(RND(1)+1)#100), 10 
4260 NEXT J 

4270 ORIGIN 0,0 

4280 PLOT 199,368, 1:DRAWR 209,0,1:D 
RANR 0,-338, 1:PLOTR 1,0, 1:DRAWR 0,3 
38,1 

4290 PLOT 408,30, 1:DRAWR -209, 0, 1:D 
RAUR 0,338, 1:PLOTR 1,0, 1:DRAUR 0, - 
338,1 

4300 PLOT 198,368, 1:DRAWR 0,20, 1:FL 
OTR 1,0,1:DRAWR 0,-20,1:PLOT 198,38 
8,1 

4310 DRAWR 210,0, 1:DRAUR 0,-20, 1:PL 
OTR 1,0,1:DRAMR 0,20, 1 

4320 PLOT 299,388, 1:DRAUR 0,-358, 1: 
PLOTR 1,0, 1:DRAUR 0,358, 1 


4330 TAG 
4340 PLOT 200,384 
4350 PRINT" NOM ‘s 


4360 PLOT 303,384 

370 PRINT" NB DE COUPS ": 
4380 TAGOFF 

4390 POKE &64D0+A*11, COUPS 
4400 FOR I=1 TO NB 

4410 LOCATE 27,2+1 
4420 FOR J=1 TO 10 


?RY fu 


VJ 
àYE 
?XC 


VB 


:WM 


>AD 


DZ 


>1D 
?LK 


EH 
#UR 
LD 
?ML 


?LF 








4440 NEXT J 

4450 LOCATE 44,241 

4460 PRINT PEEK(&64DB+(I-1)#11) 
4470 NEXT I 

4480 IF INF=0 THEN LOCATE 26,24NB E 
LSE LOCATE 26,2+A 

4490 PRINT ">" 

4500 IF INF=0 THEN LOCATE 357,24NE E 
LSE LOCATE 37,2+A 

4510 PRINT"<" 

4520 IF INF=0 THEN LOCATE 
LSE LOCATE 39,2+A 


4540 IF INF=0 THEN LOCATE 47,24NB E : 


LSE LOCATE 47,2+À 

4550 PRINT"££<<€": INK 1,24 

4560 WHILE INKEY$="":HEND 

4570 MODE 1:NB=NB+1:1F NB:20 THEN N 
B=20 

4580 POKE &64D0,NB 

4590 LOCATE 7,12:PRINT"Voulez-vous 
refaire une partie ?" 


4600 A$=UPPERS (INÉEY#): IF A$="" THE à 


N GOTO 4600 
4610 IF A$="0" THEN GOTO 119 
4620 IF A$£>"N" THEN GOTO 4560 


4430 PRINT CHR$(PEEK(&64D0+J+(1-1)# >60 | 4630 MODE 2:END 








464 


Manuel DA SILVA 


Aurez-vous assez de 
mémoire visuelle pour 
réussir à réunir deux 
par deux chacune des 
vingt-quatre cürtes en 
moins de 25 coups ? 
Essayez voir, à la 
rédaction, nous n'avons 
pas pu descendre en 
dessous de 27... 
Blue-Cards, avec des 
cartes comportant des 
dessins ou des mots, du 
brainstorming en 
perspective pour les 
jours de pluie. 


BLUE-CARDS 


BLUF-CARDS 





10 REM FH »vH@ 170 SYMBOL 117,60,102,96,96,96,96,3 : 


: REM ##4 #+ DJ 
L REM #44 BLUE-CARDS ## TE 
“ REM ### ## )EA 
: REM ###  (C) 1988 NOGENT ## )WK 
u REM ### ## )EC 
% REM ##4 D.5. MANUEL ## >TQ 


+ 


25 








80 REM ### 
+ 


90 REM #6 


# 
100 REM 

110 MODE O:CLEAR:CALL &BC02:FAPER Ô 
PEN 1:C=2:B=3:1=1 


120 INK O,O:INE 1,26: INK 2,4: INE 3, : 


12:BORDER O:PAPER 0: IV$=CHR$ (24) 
130 CALL &BB48:POKE KBDEE, &C9 

140 SYMBOL AFTER 32 

150 SYMBOL 110,6,6,6,6,6, 102, 60,0 


160 SYMBOL 112,104,96,96, 96, 9b, 98,2 à 


54,0 


2,28 

1 

180 SYMBOL 118,0,0,0,0,0,0, 254,254 
190 SYMBOL 119,254, 98, 96, 96, 96, 96, 1 
04,120 


200 SYMBOL 124,126, 102, 102, 102, 102, : 


102, 102,0 


210 SYMBOL 125,102, 102, 102, 102, 102, : 


102, 252, 252 


220 SYMBOL 126,192,192,192, 192,192, : 


102, 60,0 


230 SYMBOL 127,102, 102, 102, 102,102, : 


108, 248, 0 


| 240 SYMBOL 128,96,96, 96,98, 102, 254, 


39,24NB E 


#+ © 


254 


250 SYMBOL 129, 102, 102, 102, 102, 102, 


102, 60,0 


260 SYMBOL 130,108, 102, 102, 102,102, 


102, 224,0 


270 SYMBOL 131,24,60, 102, 102, 102, 10 


2,126, 126 


280 SYMBOL 132,252, 102, 102, 102, 102, 


100, 124, 124 


290 SYMBOL 133,60,102,192, 192,192, 1 


92, 192, 192 


300 SYMBOL 134,248, 108, 102, 102, 102, 


102, 102,102 


310 SYMBOL 135,240, 240, 96, 96, 96,96, 


96,96 


320 SYMBOL 136,102, 102, 102, 102, 102, : 


102, 102, 102 


330 SYMBOL 137,252, 102, 102, 102, 102, 


102,124,124 


340 X$="PRESSEZ UNE TOUCHE ‘:2$=X$ 
350 CLS:TIS$=CHRS (132) +CHR$ (135) +CHR 


>HA 


JV 


JF 


LM 


LL 


LM 


#FC 


?LQ 


?EE 
>6D 


$ (136) +CHR$ (119) +CHR$ (118) +CHRS (133 


)+CHR$ (131) +CHR$ (137) +CHR$ (134) +CHR 


$(117) 


360 TI1$=CHR$ (125) +CHR$ (128) +CHR$ (1 
29)+CHR$(112)+" "+CHRS (126) +CHR$ (12 
4)+CHR$ (130) +CHR$ (127) +CHR$ (110) 


>PF 


370 CLS:WINDOW#1,5,16,22,23:PAPER#1 >XA 








B:CLS#1:PEN#1, 
380 PEN#1,0:PRINT#1,CHRS(212)TAB(12 NP 
1CHRS (213): PRINT#1: PRINTH :PRINTH1 
,CHRS (215) TAB (12) CHR$ (214) ; 


370 Y=23:Y1=24 >UH 
400 WHILE INKEY$="" ?NE 
410 WHILE INKEY$<>"":WEND > 


420 PEN C:LOCATE 6,Y:PRINT IVSTISIV XV 
S:PEN B:LOCATE 6, Y1:PRINT IVSTIA$IV 

$ 

430 C=C+1:B=B+1: 1=1+1 PU 
440 IF C>13 OR B>13 OR 1>13 THEN C= DT] 
1:B=2:1=3 ELSE IF C=5 OR E=5 OR 1=5 
THEN C=C+1:B=+2: I=1+1 

450 IF PASS=0 THEN FOR X=1 TO 18:L0 >LM 

CATE 1,25+X:PRINT CHR$(11):FOR Z=1 

TO 10:NEXT 2, 

460 IF I£)B THEN PEN B:LOCATE 2,24: >GX 
PRINT MIDS (26,1, 18) ; :2$=MID$ (2$, 2) : 

IF LEN(2$)€19 THEN Z$=2$+X$ 

470 BORDER i >EH 
480 FOR H=1 TO 36:MOVE 0,398-H#10: >CM 
DRAM (H+1)#60,40,I:NEXT H 


490 PASS=1:Y=5:Y1=6: WEND ?VG 
900 ‘ RF 
910 MODE i HE 
920 SYMBOL AFTER 32 ?NE 








4) ,CH(24) :REC=25:E5=1 

540 MODE 1:1NK 0,0: INK 1,26: INK 2,4 KR 
:INK 3,12: BORDER O:PAPER 2: IVS=CHR$ 
(24) 

550 OUT BCOO, 2: OUT &BD0O, 46: OUT &B VF 
COù, 7: OUT &BD00, 30 

560 SYMBOL 110,72,72,136, 145, 162,68 HE 
,72,144 

570 SYMBOL 111,56,88,152,24,24,24,5 >EP 
6,84 

580 SYMBOL 112,48, 56,92, 148,20,0,1, CH 
7 

590 SYMEOL 113,90, 40, 24, 60, 60, 24,25 FR 
5,255 

800 SYMBOL 114,0,0,1,3,5,1,128,224 AH 
&10 SYMBOL 115,14, 13,249,225,65,34, ET 
5,10 

420 SYMBOL 116,36, 20, 146,202, 169,14 >HH 
8,76,38 

630 SYMBOL 117,4,4,8,8,16,17,34,36 DAT 
640 SYMBOL 118,8,17,35,71,135,11,27 >DV 
,56 

850 SYMBOL 119,138,138,138,10,6,2,1 FF 
93,96 

660 SYMBOL 120,189,153,153,153,153, >HD 
153,153 

670 SYMBOL 121,82, 81,80, 80,9%6,64,12 DA 
8,0 


o0 SEUL 122,16,8, 132, 66,33, 16,24 >DK 


12 

690 SYMBOL 123,64,64,32, 32,16, 144,7 >DW 
2,8 

700 SYMBOL 124,0,0,0,0,0,1,2,2 “WU 
710 SYMBOL 125,64,64,64,132,132,4,4 CU 
4 

720 SYMBOL 126,36,40,41,40,36,35,39 EY 
,106 

730 SYMBOL 127,24,24,153,90,90,153, )GJ 
24,219 

740 SYMBOL 128,36,20, 148,20,36,196, HO 
100, 212 

750 SYMBOL 129,4,4,4,66,b6,65,b4, 32 BN 


760 SYMBOL 130,0,0,0,0,0,0,128,128 A 


770 SYMBOL 131,0,0,0,0,0,0,0, 0 WU 
780 SYMBOL 132,31,32,69,65,65,65, 64 EC 
,64 

790 SYMBOL 133,129, 96, 224,33, 34,2, 1 >FH 
29,66 

800 SYMBOL 134,255, 255, 126, 255, 24,2 >HX 
4,24,24 

810 SYMBOL 135,129, 2,7,132,68, 64, 12 DER 
9,66 

820 SYMBOL 136,240, 8, 164,132, 132, 13 DFE 
2,4,4 


+77 
530 DIM CARTES (24) ,CAR$ (24) ,CAR1$ (2 PA 850 SYMBOL 137,0,0,0,0,0,0,0,0 >WX 


26 


840 REM 

850 a$=CHR$ (131) +CHR$ (132) +CHR$ (133 
DHCHR$ (134) +CHR$ (135) +CHR$ (136) +CHR 
$(137) 

860 b$=CHR$(124)+CHR$ (125) +CHR$ (126 >AP 
D+CHR$ (127) +CHR$ (128) +CHR$ (129) +CHR 
$(130) 

870 c$=CHR$(117)+CHR$ (118) +CHR$ (119 
D+CHRS (120) +CHR$ (121) +CHR$ (122) +CHR 
$(123) 

880 dé=CHR$(110)+CHR$ (111) +CHR$ (112 
)+CHRS (113) +CHR$ (114) +CHR$ (115) +CHR 
$(116) 

890 REM VD 


a 


AC 


D 


AG 


900 Y=10:X=2:PAPER 1:PEN 0 >UH 
910 FOR X=2 TO 17 EF 
920 LOCATE X,10:PRINT IV$a$IV$ ?Y6 


930 LOCATE X,11:PRINT IV$b#$IVé ?1B 


940 LOCATE X,12:PRINT IVéc$IVé ?1E 
950 LOCATE X,13:PRINT IVéd$IVé 1H 
960 FOR LX=1 TO 3:LOCATE X-i,Y+LX:P >ZH 
RINT IV$" “IV$:NEXT 

970 NEXT:PAPER 1:PEN 1 : BORDER 26 AL 
980 LOCATE 1,25:PRINT IV$CHR$ (212) I FA 


V$; 
990 LOCATE 40,25:PRINT IV$CHR$ (213) >GQ 
IV$; 


1000 FOR T=1 TO 7:LOCATE 1,25+T:PRI ?PG 
NT CHR$ (11); 
1010 FOR 1=1 TO 1SO0:NEXT IT > 


1020 LOCATE 1,1:PRINT IV$CHR$(212) 1 
V$: 

1030 LOCATE 40,1:PRINT IV$CHR$ (213) GR 
IV$; 


104€ PLOT 17,129, 1:DRAM 622, 129: DRA 
W 622, 385:DRAN 17,385: DRAW 17, 129:P 
EN 2 

1050 PAFER O:PEN 3 : AZ$="BLUE":A21 ?LV 
$="CARDS" 

1060 X=3:Y=8:B=33 

1070 FOR S=1 TO 12:S0UND 1,15+B 


1080 LOCATE X+6,Y:PRINT CHR$(32)A7$ >DT 


1090 LOCATE B-S, Y:PRINT AZ1$CHRS (32 
} 

1100 SOUND 1,450-S:NEXT 

1110 PEN 2:FOR 1=1 T0 6 

1120 LOCATE 15,15-L:PRINT STRINGS (1 >HB 
2,45) 

1130 LOCATE 15,16-I:PRINT STRINGS (1 
2,32):NEXT 

1140 T$=". (ENTER). .DESSINS.. (T)..TE >YU 
XTES.":T=LEN(T#) \2:FOR Z=1 TO LEN(T 

$) 

1150 PEN 3:LOCATE 20-T+7,15:PRINT M PL 


ID$ (TS, 2,1) 
1160 NEXT 5kK 
1170 GOSUB 4490 >] 
1180 AS=UPPERS (INKEYS): IF A$="" THE >GC 
N 1180 

1190 IF A$="T" THEN CHOIX=1 ELSE CH >GC 
OIX=0 

1200 IF A${>"T" AND ASCCHRS(13) TH FE 
EN 1180 

1210 PAPER 1:FOR X=1 TO 25 ;TB 
1220 LOCATE 1,25+K:PRINT CHRS(11) 


1230 FOR Z=1 TO SO:NEXT Z,X 
1240 PAPER O:CLS: INK 0,0: INK 1,26: 1 >BG 
NK 2,6: INK 3,2: BORDER 0 

1250 OUT BCOO, 2:OUT #BD00, 45 : OUT ?XX 
&BCO0, 7:OUT &BDOO, 28 

1260 HIHI >YE 
46H 

1270 ‘Hbbbtetette VISAGE ‘PROFIL! ?VC 
* CARTES(1) #4 

1280 SYMBOL 161,255, 128,129, 131,135 NL 
,135,132,141 

1290 SYMEOL 162,255, 0,176,127,158,2 ER 
49,24, 142 

1300 SYMBOL 163,255, 1,1,1,129, 225, 1 : 
61,145 

1310 SYMBOL 164,144,160,164,156,137 >NQ 
,143,136, 144 

1320 SYMBOL 165,14, 14,15,26,25,57,1 >CN 


q— 

1330 SYMBOL 166,81,49,241, 209, 81,97 : 
,193,65 

1340 SYMBOL 167,152, 143,129, 130, 129 : 
,159,225, 255 

1350 SYMBOL 168,3,129,1,1,0,0,0,295 ?BA 


1360 SYMBOL 169,65,129,1,1,129,65,3 
3,295 

1370 ‘HER 
HER 

1380 ‘###H##H###444 FLEURS CARTES (2) 
HE 

1390 SYMBOL 170,255, 131,132,136, 195 
172,165, 164 

1400 SYMBOL 171,255,0,1952,108,236,9 KP 
8,178,172 

1410 SYMBOL 172,259,1,1,1,1,1,1,1 


3YE 


2N4 


>1U 


1420 SYMBOL 173,191,145,147, 141,133 
,136, 136, 140 

1430 SYMBOL 174,68, 196,69, 58, 34,195 >EB 
,2,2 

1440 SYMBOL 175,1,145,169,197,229,9 DEN 
3,165, 169 

1450 SYMBOL 176,132, 133,134, 148,140 DNJ 
,132,132,255 


?NL 


27 





1460 SYMBOL 177,1,5,2,4,8, 28, 32,255 >BX 
1470 SYMBOL 178,169,207,49,1,1,1,1, 
255 

1480 © HAE YF 
SELS SRE SSL SE SES LS) 

1490 ‘HE FENETRE HE 
#44 CARTES (3) #44 

1500 SYMEOL 179,255, 128, 135, 132,137 NL 
133,133, 133 

1510 SYMBOL 180, 255,0, 255, 0,255,250 >JC 
,245,233 

1520 SYMBOL 181,255, 1,225, 161,33,33 ?6R 


TT TT 
AIRE 


1530 SYMBOL 182,137, 133,133,123,133 MF 
133,133, 133 

1540 SYMBOL 183,233, 233, 235, 233,233 M 
,233, 235, 233 

1550 SYMBOL 184, 161,33,33 


CR x 


1560 SYMBOL 185,132, 135,132,136,144 ; 
160, 192,255 

1570 SYMBOL 186,9,249,8,9,10,12,8,2 >DK 
d9 

1580 SYMBOL 187,33,97,161,17,9,5,3, >DH 
255 

1590 HIHI EYE 
PPTSFES SEE SSSE TS 

1600 ‘#kk#tt VISAGE FACE‘ 44444 KE 
#tkt CARTES (4) #44 

1610 SYMBOL 188,295,129,134,1237,151 NN 
.148, 184,184 

1620 SYMBOL 189,295, 179,77,254,73,1 ÿLE 
78,150, 104 

1630 SYMBOL 190,255, 129,97,81,185,7 : 
7,13,45 

1640 SYMBOL 191.182,177,166,163,176 >NT 
,176,144,136 

1650 SYMBOL 192,19,133,82,149,19,8, :FG 
36,24 

1660 SYMBOL 193,205,5, 205,85, 153, 25 
,17,33 

1670 SYMBOL 194,136,132,135, 133,132 
,152,224,295 

1680 SYMBOL 195,0,92,62, 128,96, 31,0 
299 

1690 SYMBOL 196,65,65,65,129,129,11 
3,9,259 

1700 HI 
AH 

1710 ‘#HHHHEE MODULE HF 
##+ CARTES (5) ####4 

1720 SYMBOL 197,255,128,191,162,165 >NP 
170, 180, 169 

1730 SYMBOL 198,255, 36,72, 144,32,64 >JG 
,128, 128 

1740 SYMBOL 199,255,131,133,137,145 >NA 


ar 
[=] 
D 


Le 
oo 


,33,161,33 >GW 


>6J 
?NR 
EM 
>HC 
?YA 


>YB 





,161,193,131 

1750 SYMBOL 200, 146, 144, 200, 144,160 >NM 
,192, 128,255 

1760 SYMBOL 201,255, 128, 128, 128,128 > 
,128, 128, 128 

1770 SYMBOL 202,5,9, 17,33,65,129, 12 > 
9,65 

1780 SYMBOL 203,129, 130, 132,136, 144 à 
,160, 193,255 

1790 SYMBOL 204,6,9, 16,32,64,128,0, >DT 
255 

1800 SYMBOL 205,33, 17,137,69,35,17, FE 
9,255 

1810 HAE 
CRÉSÉS SES LS SE ESSS SES: 

1820 ‘###4444 OISEAU 4H ÿYD 
#k4 CARTES (4) ##H44 

1830 SYMBOL 206, 255, 128, 128, 128,128 > 
,131,128, 128 

1840 SYMBOL 207,255, 0, 112, 136, 164, 1 : 
32,68, 68 

1850 SYMBOL 208,255,1,1,1,1,1,1,1 ZT 


1860 SYMBOL 209, 128, 128, 128, 129, 129 
,130,130, 130 

1870 SYMBOL 210,68, 132, 132, 100,84,6 >HC 
6, 69,34 

1880 SYMBOL 211,1,1,1,1,1,1,1,129 21 


1890 SYMBOL 212,131,129,128, 128,128 > 
, 128, 128, 255 

1900 SYMBOL 213,61,128,249,39,36,68 ; 
132,299 

1910 SYMBOL 214,65,161,81,105,21,11 : 
515299 

1920 HIER 
HP 

1930 ‘HE CIBLE HN 
#4 CARTES (7) ####4 

1940 SYMBOL 215,255, 128, 128,128,143 >NB 
,140,138,137 

1950 SYMBOL 216,129,129,129,129,129 >GE 
,0,0,0 

1960 SYMBOL 217,255,1,1,1,241,49,81 >EA 
,145 

1970 SYMBOL 218,248,0,0,0,0,0,0,248 :; 


1980 SYMBOL 219,255, 255, 255, 255,255 >NB 
,255, 255, 255 
1990 SYMBOL 220,31, 0,0,0,0,0,0,31 


2000 SYMBOL 221,137,138, 140,143, 128 >K 
,128, 128, 255 

2010 SYMBOL 222,0,0,0,129,129, 129,1 >GN 
29,129 

2020 SYMBOL 223,145,81,49,241,1,1,1 EJ 
255 

9 








030 HP 


HER 


2040 ‘HE DAMIER HE | 


#44 CARTES (8) ####4 


2050 SYMBOL 224,255, 240, 240, 240, 143 


,143, 143,143 


2060 SYMBOL 225,255, 240, 240,240, 15, : 


15,15, 15 


2070 SYMBOL 226,255,241,241,241,15, > 


15,15, 15 


2080 SYMBOL 227,240,240,240, 240,145 ; 


,143, 143,143 


2090 SYMBOL 228, 240,240, 240,240,15, > 


15,15, 15 


2100 SYMBOL 229,241,241,241,241,15, : 


15,15,15 


2110 SYMBOL 230,240,240, 240,240, 143 > 


,143,143,255 


2120 SYMBOL 231,240,240,240,240,15, : 


15,15,15 

2130 SYMBOL 232,241,241,241,241,153, 
15,15,255 

2140 HIHI 
EP 

2150 ‘HHHEHHMHHNHE COURONNE #44 
Hub CARTES (9) #44 

2160 SYMBOL 233,0,0,0,0,0,0,0,4 
2170 SYMBOL 234,0,8,8,62,8,8,8,8 
2180 SYMBOL 235,0,0,0,0,0,0,0, 16 


2190 SYMBOL 236,6,3,0,0,0,5,9, 17 


2200 SYMBOL. 237,8, 235, 62, 28, 28, 73,2 à 


47,85 


2210 SYMBOL 238, 48,224,0,0,0,80,200 > 


,68 

2220 SYMBOL 239,17,51,6,3,1,1,0,0 
2230 SYMBOL 240, 42,255, 170, 255,0, 25 
5, 255, 0 

2240 SYMBOL 241,68, 230, 176, 224,64, 1 
28,0,0 

2250 SYMBOL 249, 128,64, 32, 16,8, 4,2, 
i 


2260 SYMBOL 249, 129,66, 36, 24,24, 60, 


126, 255 


2210 SYMBOL 250, 1,2, 4,8, 16,32, 64, 12 : 


8 
2280 "HIHI 


HER 


2290 ‘HF SABLIER HE | 


####4 CARTES (10) #+# 


2300 SYMBOL 242, 1,2, 4,8, 16, 32, 64, 12 


8 
2310 SYMBOL 243,255, 126, 60,24, 24, 36 
,66, 129 


2320 SYMBOL 244,128,64,32,16,8,4,2, 


1 
2330 SYMBOL 245,129,67,39,31,31,39, 


28 


67,129 


2340 SYMBOL 246, 129, 195, 231,255, 255 : 


,231,195, 129 


2350 SYMBOL 247,129,194,228, 248,248 : 


,228, 194, 129 


2360‘ HHHHHHHHHHEHNPHHHBHNEHHEE 


HER 


2370 ‘HF DEMON 0H 


HHt4 CARTES (11) #4 
2380 SYMBOL 251,48, 192,0,3,4,0,0,0 


,40 

2400 SYMBOL 253, 128,0,0,0,0,0,0, 0 
2410 SYMBOL 254,5,5,4,2,1,1,3, 12 
2420 SYMBOL 255,149, 168, 16,0,5,0,71 
32 
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2,64 
2440 SYMBOL 101,0,0,0,4,6,5,4,5 


2450 SYMBOL 102,0,0,15, 16,32,64,208 > 


#2 


2440 SYMBOL 103,0,0, 128, 46,38, 26,82 : 


,138 


2470 HET 


HET 


2480 “HE HOMME #36 CA 


RTESS$ (12) HR 
2490 SYMBOL 90,0, 0,0,0,0,0,0,56 


68,56, 16 


60, 124,254 

2530 SYMBOL 94,0,128, 192,224, 224, 11 
2,112,112 

2540 SYMBOL 96,1,1,1,1,1,3,7,15 
2550 SYMBOL 97,239, 199, 199, 199, 199, 
199,199, 199 

2560 SYMBOL 98,80, 0, 0,0,0,0,0, 128 





AH HE 
,398:DRAW 590, 1 
OSUB 4750:NEXT 
GOSUB 4750:NEXT 


:G0SUB 4750: NEXT 





:G0SUB 4750: NEXT 


2630 PEN 3:TIT$="BLUE CARDS":FOR I= : 


FA 


1 TO LENCTITS):LOCATE 40,6+1: PRINT 
MID$ (TITS, 1,1) :NEXT 
2640 PEN i:B=0:PRINT CHR$ (22) CHR$ (1 


2290 SYMBOL 252, 24,5, 2, 132, 40, 40, 40 : 


2430 SYMBOL 100,74,164,72,8, 16, 16,3 > 


2500 SYMBOL 91,124,130,170,130,146, > 
2510 SYMBOL 92,56, 29,29, 15, 14, 4,0,0 : 


2520 SYMBOL 93,255, 255, 255, 126, 124, : 


2970 RHONE | 
2580 PLOT 1,1,3:DRAW i,398:DRAH 590 : 
2990 G=2:D=6:H=2:B=6: FOR 1=i TO 6:6 > 
2600 G=2:D=b:H=8:B=12:FOR 1=1 TO 6: 2 
2610 6=2:D=6:H=14:B=18:FOR 1=1 T0 6 ? 


2620 G=2:D=6:H=20:B=24: FOR 1=1 TD 6 : 


sv 


?EX 





}; (226) 








2650 FOR L=i TD 6 ?CK | 2950 CARTES (8)=CHR$ (227) +CHR$ (228)+ LT 
2660 LOCATE 3+B,1 : PRINT L : B=B+b >ZA | CHR$(229) 

2960 CAR1$(8)=CHR$ (230) +CHR$ (231)+C JF 
2670 NEXT ?LG | HR$(232) 
2680 PRINT CHR$ (22) CHR$ (0); ?VE | 2970 CARS (9)=CHR$ (233) +CHR$ (234) +CH JT 
2690 B=0:FOR L=1 TD b:LOCATE 3+B,7 AD | R$(235) 
:PRINT 6+L:B=B+6 :NEXT 2980 CARTES (9)=CHR$ (236) +CHR$(237)+ >LX 
2700 B=0:FOR L=1 TO 6:LOCATE 3+B,13 BD | CHR$ (238) 
tPRINT 12+L:B=B+6:NEXT 2990 CAR1$(9)=CHR$ (239) +CHR$ (240) +0 KL 
2710 B=0:FOR L=1 TO 6:LOCATE 3+B,19 >CJ | HR$(241) 
PRINT 18+L:B=B+6:NEXT 3000 CARS (10)=CHR$ (242) +CHR$ (243)+C JR 
2720 WINDOW#2,1,37,25,25:PAPER#2, 1: :TQ | HR$(244) 
CLS#2:PEN#2,3 3010 CARTE$(10)=CHR$ (245)+CHR$ (246) MF 
2730 CARS (1)=CHR$(161)+CHR$(162)+CH >JC | +CHR$ (247) 
R$(163) 3020 CAR1$(10)=CHR$ (248)+CHR$ (249)+ KW 
2740 CARTES (1)=CHR$ (164) +CHR$(165)+ LG | CHR$(250) 
CHR$ (166) | 3030 CAR$(11)=CHR$(101)+CHR$(102)+C JB 
2750 CAR1$(1)=CHR$ (167) +CHR$ (168) +C >KQ | HR$(103) 
HR$ (169) 3040 CARTES (11)=CHR$ (254)+CHR$ (255) MF 
2760 CARS (2)=CHRS$ (170)+CHR$ (171)+CH JG | +CHR$(100) 
R$(172) 3050 CAR1$(11)=CHR$ (251) +CHR$ (252) + :KQ 
2770 CARTES (2)=CHR$ (173)+CHR$ (174)+ LL | CHR$ (253) 
CHR$ (175) | 3060 CARS (12)=CHR$ (90) +CHR$ (91) +CHR >HQ 
2780 CAR1$(2)=CHR$ (176) +CHR$(177)+C KV | $(137) 
HR$ (178) 3070 CARTES (12)=CHR$ (92) +CHR$(93)+C > J7 
2790 CARS (3)=CHR$ (179) +CHR$ (180)+CH > JW | HR$(94) 
R$(181) 3080 CAR1$(12)=CHR$ (96) +CHR$ (97)+CH HN 
2800 CARTES (3) =CHR$ (182) +CHR$(183)+ ©LF | R$(98) 
CHR$ (184) 3090 IF CHOIX=1 THEN FOR Z=1 TO 24: >RU 
2810 CAR1$ (3)=CHR$ (185) +CHR$ (186) +C ?KP | CARS (Z)=STRINGS (3,32) :CAR1$ (2) =STRI 
HR$ (187) NG$ (3,32): NEXT: 
2820 CARS (4)=CHR$ (188)+CHR$ (189)+CH JA | 3100 IF CHOIX=1 THEN CARTES (1)="FIN >PD 
R$(190) “2 CARTES (2)="RAT": CARTES (3) ="SQU": C 
2830 CARTES (4)=CHR$(191)+CHR$(192)+ ?LK | ARTES$ (4)="MOU": CARTES (5) ="BON" : CART 
CHR$ (193) E$(6)="MAL": CARTES (7)="GAI": CARTES ( 
2840 CAR1$ (4)=CHR$ (194) +CHR$(195)+C >KU | 8)="POU": CARTES (9)="SON": CARTES (10) 
HR$ (196) ="TIR": CARTES (11)="SAC": CARTES (12)= 
2850 CAR$(5)=CHR$ (197)+CHR$(198)+CH >JP | "MAC" 
R$ (199) 3110 carte$(24)=carte$(i2):car$(24) >KV 
2860 CARTES (5)=CHR$ (200) +CHR$ (201)+ ?LK | =car$(12):car1$(24)=car1$(12) 
CHR$ (202) 3120 1=1:FO0R M=13 TO 24:car$(M}=car >XU 
2870 CAR1$(5)=CHR$ (203) +CHR$ (204)+C JC | $(I):car1$(M)=car1$ (1): CARTES (M) =CA 
HR$ (205) RTES (I): I=1+1:NEXT 
2880 CARS (6) =CHR$ (206) +CHR$ (207)+CH JP | 3130 REM ?1J 
R$ (208) 3140 REM MELAGE LES CARTES >VM 
2890 CARTES (b)=CHR$ (209) +CHR$ (210)+ >LZ | 3150 ?YB 
CHR$ (211) 3160 CLS#2:PEN#2,2 ?MX 
2900 CAR1$(6)=CHR$ (212) +CHR$(213)+C }JX | 3170 LOCATE#2, 4, 2:PRINT#2, "UN MOMEN >LP 
HR$ (214) T, JE MELANGE LES CARTES." 
2910 CARS (7)=CHR$ (215) +CHR$ (216)+CH }JJ | 3180 FOR S=1 TO 24 LY 
R$(217) 3190 RANDOMIZE TIME >PP 
2920 CARTES (7)=CHR$ (218) +CHR$(219)+ LD | 3200 CH(S)=INT (RND#24) +1 ?TP 
CHR$ (220) 3210 L=1 >VF 
2930 CAR1$(7)=CHR$ (221)+CHR$ (222)+C > JB | 3220 FOR R=1 TO S FJ 
HR$ (223) 3230 IF CH(S)=CH(S-L) THEN 3190 )XE 
2940 CAR$(8)=CHRS$ (224) +CHR$ (225)+CH ÿJN L 3240 L=L+1 >K6 


29 





3290 NEXT R,S MG 
3260 PRINT CHR$(22)CHR$ (0); 3VX 
3270 CLS#2:PEN#2.0 >MX 
3280 PEN#2,2:LOCATE#2, 2, 1:PRINT#2," >PQ 
ESSAI": STRINGS$ (-(E5>1),"G")5ES:")#( 
“y: PEN#2,0:PRINT#2, "CARTE A RETOURN 
ER :"; 
3290 PEN#2, 2: INPUT#2, "UNS UC 
3300 N=VAL (N$) ?TE 
3310 IF N£1 OR N°24 THEN GOSUB 4710 >KB 
: GOTO 3270 
3320 N=VAL(N$): IF N£i OR N>2Z4 THEN >XN 
GOSUB 4710 : GOTO 3270 
3330 >YB 
3340 IF N=1 THEN x=3:y=4 3RJ 
3350 IF N=2 THEN x=9:y=4 RT 
3360 IF N=3 THEN x=15:y=4 TM 
3370 IF N=4 THEN x=21:y=4 ?TL 
3380 IF N=5 THEN x=27:y=4 ?TV 
3390 IF N=6 THEN x=33:y=4 ?TU 
3400 IF N=7 THEN x=3:y=10 ?TE 
3410 IF N=8 THEN x=9:y=i0 ?TN 
3420 IF N=9 THEN x=15:y=10 UJ 
3430 IF N=10 THEN x=21:y=10 UC 
3440 IF N=11 THEN x=27:y=10 UL 
3450 IF N=12 THEN x=33:y=10 >UK 
3460 IF N=13 THEN x=3:y=i6 UJ 
3470 IF N=14 THEN x=9:y=i6 UT 
3480 IF N=15 THEN x=15:y=i6 UV 
3490 IF N=i6 THEN x=21:y=16 >UX 
3500 IF N=17 THEN x=27:y=16 U 
3910 IF N=18 THEN x=33: v=16 >UV 
3520 IF N=19 THEN x=3:y=22 >UJ 
3530 IF N=20 THEN x=9:y=22 >UH 
3540 IF N=21 THEN x=15:y=22 UN 
3990 IF N=22 THEN x=21:y=22 >UM 
3560 IF N=23 THEN x=27:y=22 UH 
3570 IF N=24 THEN x=33:y=22 >UV 
3580 C=CH(N) BH 
3590 IF CARTES (C)="" THEN GOSUB 471 >MT 
0 : GOTO 3270 
3600 IF N=NN OR NN=N THEN GOSUB 471 ME 
0 : GOTO 3270 
3610 X1=X:Y1=Y ?BE 
3620 REM >AC 
3630 REM #####44 AFFICHAGE DES CART LJ 
ES HIHI 
3640 REM AE 
3650 FEN i >G6D 
3660 LOCATE x,y-1:PRINT IV$CARS(C) I FY 
V$ 
3670 LOCATE x,y:PRINT IVS$CARTES (CII >66 
V$ 
3680 LOCATE x,y+1:PRINT IV$CARI$(C) >6J 
IV$ 
| 3690 REM AK 


3700 REM *###### ENTRER LES CARTES 67 


HE 
3710 REM >AC 
3720 CLS#2:PEN#2,0 >MX 


ER :"3;:PEN #2,3 
3740 INPUT#2,"",NN$ >NB 
3750 NN=VAL (NNS) >LK 


3760 IF NN€1 OR NN>24 THEN GOSUB 47 >N7 
10:G0T0 3700 


3770 NN=VAL(NN$): IF NN<1 OR NN>24 >C7 
THEN G60SUB 4710:G0T0 3700 

3780 ?IA 
3790 IF NN=1 THEN x=3:y=4 >TV 
3800 IF NN=2 THEN x=9:y=4 ?TU 
3810 IF NN=3 THEN x=19: y=4 >UP 
3820 IF NN=4 THEN x=21:y=4 ?UN 
3830 IF NN=5 THEN x=27:y=4 >UX 
3840 IF NN=6 THEN x=33: y=4 ?UH 
3850 IF NN=7 THEN x=3:y=10 >UR 
3860 IF NN=8 THEN x=9:y=10 UA 
3870 IF NN=9 THEN x=19:y=10 VX 
3880 IF NN=10 THEN x=21:y=10 >VR 
3890 IF NN=11 THEN x=27:y=10 ?VA 
3900 IF NN=12 THEN x=33:y=10 >VP 
3910 IF NN=13 THEN x=3:y=16 >VM 
3920 IF NN=14 THEN x=9:y=ib >VK 
3930 IF NN=15 THEN x=15:y=16 >VC 
3940 IF NN=16 THEN x=21:y=16 >VB 
3950 IF NN=17 THEN x=27:y=ié )WB 
3960 IF NN=18 THEN x=33:y=16 >WA 
3970 IF NN=19 THEN x=3: y=22 >VX 
3980 IF NN=20 THEN x=9:y=22 >VH 
3990 IF NN=21 THEN x=15:y=22 VC 
4000 IF NN=22 THEN x=21:y=22 ?VG 
4010 IF NN=23 THEN x=27: y=22 ?VQ 
4020 IF NN=24 THEN x=33:y=22 >VP 
4030 ?XK 
4040 CC=CH (NN) >VB 


4050 IF N=NN OR NNEN THEN GOSUB 471 2ML 
0:60T0 4170 

4060 IF CARTES (CC)="" THEN GOSUB 47 >NK 
10 :60T0 3700 

4070 REM AC 
4080 REM ######4 AFFICHER 2EME CAR >KK 
TE HE 

4090 REM AE 
4100 PEN 1 FE 
4110 LOCATE x,y-1:PRINT IV$CAR$ (CC) >GU 
IV$ 

4120 LOCATE x,y:PRINT IVSCARTES (CC) >HC 
IV$ 

4130 LOCATE x,y+1:PRINT IV$CAR1S$ (CC HF 
)IV$ 

4140 FOR T=1 TO 1000:NEXT >TV 
4150 IF CARTES (C)=CARTES (CC) THEN C >2D 


1 


3730 PEN#2, 3: LOCATE#2, 2, 1:PRINT#2," DEJ | 4160 REM 
ESSAI": STRING$ (-(E521),"5") ES; "#1 
“s:PEN#2,0:PRINT#2, "CARTE À RETOURN 











ARTES$ (C)="": CARTES (CC)="":SC=SC+1:E 4500 REM >AA 
S=E5+1:60SUB 4570 : C=0:CC=0:N=0:NN 4510 SOUND 1,239,190,5,2:SOUND 2,23 >ND 
=0:1F SC=12 THEN 4300 ELSE 3270 9,90,5,2:SOUND 2,190, 100,5, 2: SOUND 
AC | 4,239,100,5,2:SOUND 4,159,50,5, 2 

4170 REM ####HHHHHtH REFERMER FENE >PK | 4520 SOUND 1,239,100,5, 2: SOUND 2,17 >HE 
TRE HE 9,100,5,2:SOUND 4,142, 100,5, 2 
4180 REM AE | 4530 SOUND 1,239,100,5,2:SOUND 2,19 >GT 
4190 PEN 3 ?6F | 0,100,5,2:SOUND 4,95, 100,5,2 
4200 LOCATE x,y-1:PRINT STRINGS (3,1 >HV | 4540 SOUND 1,190, 100,5,2:SOUND 2,11 >GJ 
43); 9,100,5,2:SOUND 4,80, 100,5, 2 
4210 LOCATE x,y:PRINT STRING$ (3,143 ŸFE | 4550 RETURN >FH 
}; 4560 REM A6 
4220 LOCATE x,y+1:PRINT STRINGS (3,1 HV | 4570 REM ###4#####44 MOTIF SONORE TR AG 
43); OUVE 2H 
4230 LOCATE xi,yi-1:PRINT STRINGS$(3 >KY | 4580 REM >AJ 
143); 4990 ENV 2,10,1,1,7,-1,5,1,0,20 WU 
4240 LOCATE x1,y1:PRINT STRINGS(3,1 >HD | 4600 ENT 1,30,1,1,1,-30,5,30,1,1,1, 3LT 
43); -30,9,30,1,1 
4250 LOCATE x1,y1+1:PRINT STRING$(3 KY | 4610 ENT 4,10,-1,1,30,1,1,10,6,2  35XM 
143); 4620 FOR SON=1 TO 2 >MV 
4260 PEN 1:G0SUB 4670 >PJ | 4630 SOUND 1,119,100,4,2,1:SOUND 2, >NM 
4270 ES=ES+i:IF SC=12 THEN 4500 >YB | 93,100,4,2,1:SOUND 4,80,100,4,2,1 
4280 N=0:NN=0:C=0:CC=0:G0T0 3270 DAY 

4640 NEXT ?LF 
4290 REM >A6 | 4650 RETURN ?FJ 
4300 REM ######HH44 FENETRE SCORE F RL | 4660 REM > AH 
INAL HR, 4670 REM YEN REPONS AV 
4310 REM ?1K | E FAUSSE 2H 
4320 WINDOW#S,4,34,5,13:PAPER#3, 1:C ?RR | 4680 REM >AK 
LS#3:PEN#3, 3 4690 SOUND 1,110,10,5:SOUND 1,100,1 >YU 
4330 a$=CHR$ (150) +STRING$ (29, 154)+C 3KX | 0,5: SOUND 1,90,10,5:SDOUND 1,180, 10, 
HR$ (156) 9: SOUND 1,70,10,5:SOUND 1,60,10,5:5 
4340 LOCATE #3,1,1:PRINT#3,a$; ?YJ | OUND 1,50,10,5:SOUND 1,40, 10,5 
4350 FOR T=1 TO 7 ?DH | 4700 RETURN FE 
4360 LOCATE#1,1,1+T:PRINT#3,CHR$(14 >ZJ | 4710 REM >AD 
9) TAB(31)CHR$ (149); 4720 REM HE ERRE >LH 
4370 NEXT )LF | UR APE 
4380 a$=CHR$ (147)+STRING$ (29,154)+C 3KF | 4730 SOUND 1,10,10,5:SOUND 1,20,10, >VU 
HR$ (153) 9: SOUND 1,170,10,5 
4390 LOCATE#S, 1,9:PRINT#3, a$: >YD | 4740 RETURN ?FJ 
4400 IF REC>ES THEN REC=ES HN | 4750 LI$=CHR$ (150)+STRINGS (3, 154)+C ?LA 
4410 LOCATE#S, 11,3: PRINT#3, "RESULTA >KQ | HR$ (156) 
LES 4760 LI1$=CHRS (147) +STRINGS (3, 154)+ 3LF 
4420 LOCATE #3,4,5:PRINT#3, "RECORD EY | CHR$ (155) 
: "REC; " ESSAIS... :":ES 4770 REM >AK 


4430 LOCATE #3,4,7:PRINT#S, "UNE AUT JB 
RE PARTIE (O/N) "CHR$(143) 


4780 REM #HHHHHHHHHHEE FENETRES PAG >2Q 
E JEU #6 


4440 R$=UPPERS (INKEYS$): IF R$="" THE >HK | 4790 REM >BB 
N 4440 4800 WINDOW#1,6,D,H,B:PAPER#1,3:CLS PT 
4450 IF R$="0" THEN CLS:SC-0:E5=1:6 >JM | #1:PEN#1,0 

OTO 540 4810 PRINT#1,LISCHRS (149) TAB(5)CHR$ >DF 


4460 IF R$="N" THEN CALL 0 >RV | (149)CHR$ (149) TAB(S)CHRS (149) CHR$ (1 


4470 IF R$<>"0" OR R$C)"N" THEN 444 DAE | 49) TAB(S)CHRS (149)LI1$; 
0 4820 G=D+2:D=6+4 >G6D 
4480 REM >AH | 4830 RETURN ?FJ 


4490 REM #HHHHHH# MOTIF SONORE I >ZV 
NTRO YHHHHHHHEHBHHREE 


4840 REM #4 FIN DU LIST ©ZN 
"5 HE @ 
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Jean REINGOT 


Si vous savez ce que vous obtenez en mélangeant du 
rouge avec du bleu, ou du bleu avec du jaune ou encore 
du jaune avec du rouge : c’est que le mélange des cou- 
leurs n’a plus aucun secret pour vous. 

Pourtant, ce qui vous est proposé ici n’est pas aussi sim- 
ple et vous trouverez certainement io partir du niveau 
cinq, c’est de moins en moins évident. 

L'auteur a jugé bon d’avertir les utilisateurs que la vision 
des couleurs est assez différente selon les individus. Il 
peut donc être utile dans certains cas de modifier les cou- 


leurs de base (bleu et jaune). 





COULMELO 


JEU DES MELANGES DE COULEURS 


© 








UQ | 490 LOCATE 4,9:PRINT"IL suffit de t >FL 


10“ AHHEHEHNNHBEEEHE ne p$(i,1)=c$(1)+CHR$ (143) 

#4 240 p$(2,1)=c$(i)+CHR$ (207) >UU 
20 ‘##4 COULMELO ?LB | 2950 NEXT EC 
#4 260 FOR i=1 TO 2:FOR j=1 TO 3 UN 
30 ‘*x#+ Jean Reingot LC | 270 11$(i,3j)=p$ti, j)+p#(i,j) VI 
##} 280 12$(i,j)=11$(i,3)+11$(i, j) >XW 
40 ‘### Version 464.664.6128 LD | 290 134(i,j)=11$(1,j)#p$(i,3) WA 
##4 300 NEXT:NEXT BA 
J0 ‘##4 Novembre 1987 LE | 310 FOR i=i T0 2 PVC 
##+ 320 p$(i,4)=p#(i,1) MC 
60 ‘###  DALTONIENS S'ABSTENIR  ?LF | 330 p$(i,5)=p#(i,2) MF 
### 340 11$(i,4)=11$(1,1) NN 
70 ANNEE LG | 350 11$(i,5)=11$(i,2) ?NR 
Liiid 360 12$(1,4)=12$(1,1) NT 
80 ‘+#+ INITIALISATIONS ?LH | 370 12$(i,5)=12$(i,2) ?N4 
#4 380 13$(i,4)=13$(i,1) NX 
DO HRRAHHEEENNNMEEEEENENNN L] | 390 13$(i,5)=13$(i,2) >NA 
HHH 400 NEXT >DK 
100 CLS >TF | 410 GOSUB 1760:G0SUB 2930 ?TJ 
110 WINDOW#1,2,28,17,24 ?RN | 420 CLS:GOSUB 2860 ML 
120 WINDOW#2,30,39,21,24 ?>RR 

130 WINDOW#S, 31,37, 18,18 DRC | 420 “HEIN RH 
140 t=0:sc=0 )ED | ###4 

1950 ENV 1,1,15,6,15,-1,8 >QV | 440 ‘### MENU >RJ 
160 ENV 2,1,19,3,3,-1,10,10,-1,5  DXR | ### 

170 DIM #$(2,48),11$(2,5),124(2,9), ?QU | 490 ‘AH DRE 
13$ (2,5) ,p$(2,5) #4 

180 INK 0,0:BORDER O:PAPER 0 WB | 460 LOCATE 4,4:PRINT"IL faut trouve >NB 
190 PRINT CHR$(22)+CHR$ (1) ?UL | r les deux plaques" 

200 INK 1,6:INK 2,2: INK 3,24 UP | 470 LOCATE 4,5:PRINT"qui en s'addit >MT 
210 FOR i=1 T0 3 >VC | ionnant donneront“ 

220 c$(i)=CHR$ (15) +CHR$ (1) >UH | 480 LOCATE 4,6:PRINT"le modele." DH 
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aper la lettre" 

900 LOCATE 4,10:PRINT"de la plaque WT 
choisie." 

910 PEN 3:LOCATE 10,13:PRINT "Nivea WT 
ü | Facile" 

920 LOCATE 10,14:PRINT "Niveau 
Plus difficile" 

330 LOCATE 10,15:PRINT 
Assez difficile" 

940 LOCATE 10, 16:PRINT 
Difficile" 

990 LOCATE 10,17:PRINT 
Dur" 

960 LOCATE 10, 18:PRINT 
Pour champions" 

370 LOCATE 10, 19:PRINT 
Casse-tete" 

980 LOCATE 10,20:PRINT 
Super-a5" 

990 PEN 2:LOCATE 12,22:PRINT "Votre >XF 
choix <1 a 8} 

600 r$=INKEVS: IF r$="" THEN 600 XF 
610 r=VAL(r$):1F r<1 OR r>8 THEN PR DVK 
INT CHR$(7):G0TO 600 

620 CLS:0N r. GOSUB 670,890,1110,132 }YV 
0,1540,1760, 1980, 2200 

630 GOSUB 28460:G0SUB 2870:G0SUB 242 >QC 
0:GOSUB 2460 

640 HIHI TA 
HHH 

650 ‘+## 


2 CD 
“Niveau 3 EC 
"Niveau 4 >VD 
“Niveau 5 
“Niveau 6 ?CG 
"Niveau 7 HR 


“Niveau 8 ?TD 


FIGURES NIVEAU 1 TB 





#44 

60 HEIN TC 
HE 

670 FOR i=1 TO 2 >WB 
680 FOR j=1 TO 4:f$(i,j}=12$(1,1):N DEE 
EXT 

690 FOR j=5 TO B:f$(i,j)=12$(i,2):N )EQ 
EXT 

700 FOR j=9 TO 12:f$(i,j)=12$(i,3): FT 
NEXT 

710 FOR j=13 TO 14:f$(i,j)=12#$(1,1) 
:NEXT 

720 FOR j=15 TO 18:f$(i,j)=12$(i,2) 
:NEXT ‘ 

730 FOR j=19 TO 22:f$(i,j)=12$(1,3) 
:NEXT 

740 FOR j=23 TO 24:#$(i,j)=12$(1,1) 
:NEXT 

750 FOR j=25 TO 28:f$(i,j)=11$(1,1) 
+11$(i,2):NEXT 

760 FOR j=29 TO 32:f$(1,j)=11$(1,2) 
+11$(i,3):NEXT 

770 FOR j=33 TO 36:f$(i,j)=11$(1,3) 
+11$(i,1):NEXT 

780 FOR j=37 TO 38:f$(i,j)=11$(i,1) 
+11$(i,2):NEXT 

790 FOR j=39 TO 40:f$(i,j)=11$(1,2) 
+11$(i,1):NEXT 

800 FOR j=41 TO 42:f$(i,j)=11$(i,2) 
+11$(i,3):NEXT 
810 FOR j=43 TO 44:f$(i,j)=11$(1,3) 
+11$(1,2):NEXT 
820 FOR j=45 TO 46: f$(i,j)=11$(1,3) 
+11$(i,1):NEXT 
830 FOR j=47 TO 48:f$(i,j)=11$(i,1) 
+11$(i,3):NEXT 
840 NEXT >EH 
850 RETURN 1] 
860 HOMME TE 
ÉPTES 
870 ‘### 
##+ 
880 ‘HERBE TG 
#4 
890 FOR i=1 TO 2:FO0R j=0 TO 2 >UD 
900 FSU, 1+j#4h=118 (1, jri)r118(i, jt CC 
2) 

910 F$(i,2+j#4)=11$(i,j+1)+11$ (à, j+ DCE 
2) 
920 F$(i,3+j#4)=11$(i,3j+2)+11$(i, j+ 
3) 
930 F$(i,4+j#4)=11$(i,j+2)+11$(i, j+ 
3) 
940 F#$(i,13+j#4)=11$(i,j+1)+11$(1,j 
+2) | 
950 F#(i,14+j#4)=11$(i,j+1)+11$(i,)j 
+2) 


FIGURES NIVEAU 2 >TF 


>CJ 


CL 


>DV 


>DX 


90 F$li,15+j#4)=11$(i, j+3)+118(i, j 

#1) 

970 F#li,16+j#4)=118(i, j+2)+118(i, à 

#1) 

980 F$(i,29+j#4)=118(i, j+1)+118(i, j 

+2) 

990 F$li,26+j#4)=118$(i, j+1)+118 (à, j 

+2) 

1000 F$(i,27+j#4)=118(i, j+1)+11$i, 

i#3) 

1010 F$0i,28+j#4)=11$(i, j+1)+118i, 

i#3) 

1020 F$(i,37+j#4)=128 (i, j#1) 

1030 F$(i,38+j#4)=128(i, j+1) 

1040 F$(i,39+j#4)=118(i, j+2)+11$(i, 

#3) 

1050 F$i,40+j#4)=11$(i, j+2)+11$(i, 

j+3) 

1060 NEXT:NEXT 

1070 RETURN 

1080 ‘HIHI 

#HH 

1090 ‘#4 
#+# 

1100 ‘HIHI à ÂE 

Lise: 

1110 FOR i=1 TO 2 | BC 

1120 FOR j=1 TO 4 STEP 3:#$(i, j)=12 MF 

$Gi,2):NEXT 

1130 FOR j=5 TO 8 STEP 3:f$(i, j)=12 >MP 

$Qi,L):NEXT 

1140 FOR j=9 TO 12 STEP 3:#$(i,j)=1 DNJ 

2$(i,3):NEXT 

1150 FOR j=2 TO 3:f$li,j)=128(i,1): DFD 

NEXT 

1160 FOR j=6 TO 7:#$li,j)=12$(i,3): >FQ 

NEXT 

1170 FOR j=10 TO 11:#$i,j)=128(i,2 DHC 

VENEXT 

1180 FOR j=13 TO 16:#$(i,j)=p#li,2) DAR 

+118 (i,1)4p$0i,2):NEXT 

1190 FOR i=17 TO 20:#$li,j)=p#li,1) DAR 

#118(i,3)4p$0i, 1)2NEXT 

1200 FOR j=21 TO 24:#$i, j)=p#li,3) DAK 

+118(i,2)4p$(i,3):NEXT 

1210 FOR j=25 TO 34 STEP 3:#$(i, j)= DPY 

12$(i,1):NEXT 

1220 FOR j=26 TO 35 STEP 3:#$i, j)= DPC 

124 (i,2):NEXT 

1230 FOR j=27 TO 36 STEP 3:#$i, j)= )PG 

124 (i,3):NEXT 

1240 FOR j=37 TO 40:#$(i, j)=p$li,1) JE 

4p$(i,2)4p$0i,3)4p# li, 1):NEXT 

1250 FOR j=41 TO 44:#$li, j)=p#(i,2) JF 

ap$(i,3)4p# li, 1)4p$0i,2):NEXT 

1260 FOR j=45 TO 48:#$0i,j)=p#(i,3) JR 

#p$ Qi, 1)4p$ti,2)4p$ ti, 3) :NEXT 


>DA 
DC 
>DC 
>DE 
?EY 
)EA 
?VE 
>VG 
>EG 
?EZ 
HF 
>FB 
>YB 


FIGURES NIVEAU 3 VC 
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1270 NEXT 
1280 RETURN 
1200 HHHEHHENHHNEHHHNEEPHENHBHEE )YŸE 
xx 


LB 
FE 


1300 ‘### FIGURES NIVEAU 4 >XG6 
#4 
1310“ HHEEEHNENHENEREHEEEHERE DH 


HA 

1320 FOR i=1 TO 2:FOR j=0 TO 2 x 
1330 #8(i,1+j#4)=118 (à, j+1)#p$ Ci, jt DNY 
21#p$ (à, #3) 

1340 #8(i,2+j#4)=118(i, j+1)+p$ li, jt DNA 
2#p$(i, +3) 

1390 #$0i,3+j#4)=138 (i, j+2)4p$0i, j+ DCL 
3) 


1360 #8 (i,4+j#4)=128 (i, j+3) JUJ 
1370 #8(i,13+j#4)=12$ (i, j#1) »V6 
1380 #8(i,14+j#4)=p$(i, j+1)+13$(i,j DZ 


#2) 

1390 #8(i,15+j44)=p$ (à, j#1)#p$0i, j+ DPF 
21+118(i, j+3) 

1400 #8 (i,16+j#4)=p$ li, j+1)#p$ li, + DPY 
21#118(i, j+3) 

1410 #8(i,25+j#4)=138 (à, j#1)4p$ li, à DOV 
+2) 


1420 #8(i,26+j#4)=p$(i, j#1)+118(i, à DPB 
+2)4p$ (à, +3) 

1430 #8(i,27+j44)=p$(i, j#1)#118(i, j DPD 
+2)4p$ li, j+3) 

1440 #5(i,28+j#4)=p8 (i, j+2)+13$(i, j )DD 
+3) 

1450 #$0i,37+j#4)=p$ li, j#1)+138(i, à DDC 
+2) 

1460 #$(i,38+j#4)=p#(i, j+2)+118(i, j DPK 
+3)4p$ (à, +2) 

1470 #(i,39+j#4)=p$ li, j+2)+11$ (à, j DPM 
+3)4p$ li, j+2) 

1480 #$0i,40+j#4)=138 (à, j+2)+p$ li, ÿ DDZ 
#1) 

1490 NEXT:NEXT LC 
1500 RETURN DEK 


1510 ‘HIHI >XK 

Lis si 

1520 ‘#44 
Less 

1530‘ HHHHHHNMHOBHHEBHRBENBHHEE DYB 
+444 

1540 FOR i=1 TO 2:FOR j=0 T0 2 > 
1990 #$0i,1+j#4)=118 (à, j+1)4p$ li, jt DNC 
2)4p#i, j+3) 

1560 #5(i,2+j#4)=p$(i, j#11+11$(i, + DNE 
24p$ li, j+3) 

1570 #$(i,3+j#4)=p$i, j#1)+118(i, it DNG 
24p#i, j+3) 

1580 #8 (i,4+j#4)=p$(i, j+1)+p$ li, j+2 DNJ 
1+118i, +3) 

1590 #$0i,13+j#4)=128 (à, j#1) 


FIGURES NIVEAU 5 


WE 


1600 #$0i,14+jk4)=p#(i, j#1)+138(i, à DDU 
42) 

1610 #$(i,15+j#4)=138(i, j+2)4p$ Ci, DDY 
+3) 

1620 #5(i,16+j#4)=128(i, +3) 

1630 #$0i,25+j#4)=118(i, j+1)+p$ (à, j 
+2)4p$(i, j+3) 

1640 #80i,26+j44)=p$ li, j+1)+118(i, ÿ DPF 
+2)4p$ li, j#3) 

1690 #$(i,27+j#4)=11$(i, j+2+118(i, 
#3) 

1660 F$(i,28+j#4)=13$(i, j+3)4p$ (à, j 
+1) 

1670 180,374 j#4)=p$ li, j#1)+118 (à, ÿ DPL 
+2)4p$ à, j+3) 

1680 #$0i,38+j#4)=11$(i, j+2)+11$(i, DER 
ÿ#3) 

1690 #$(i,39+j#4)=p$ li, j#21+118(i, j )PQ 


+TH4ps li, ji) 
1700 #$(i,40+j#4)=p$ (à, j+214p# 1, + DPY 
+118 (à, #1) 
1710 NEXTENEXT > 
1720 RETURN FD 


1730 À HP 
+##4# 

1740 ‘#44 
##+ 

1750 ‘HIHI 
+4 

1760 FOR i=1 TO 2:FOR j=0 TO 2 

1770 ##(i,1+j#4)=118i, j#1)+11$ à, j 

+2) 

1780 #80i,2+j#4)=p$ li, j+2)+p#$(i, j+i 
pi, +3)4p$ Ci, +2) 

1790 #$0i,3+j#4)=118(i, j+2)+118 (à, j | 
+3) 

1800 #$0i,4+j#4)=p$ li, j+2)+118(i, j+ DND 

3+p$(i, #1) 

1810 #$(i,13+j#4)=p$(i, j+1)#p$ Ci, j+ 

21#118(i, +3) 

1820 #$(i,14+j#4)=p# li, j#1)+11$ (à, j 

+2)4p$(i, #9) 

1830 #$(i,15+j#4)=+11$(i, j+1)+p$ li, 
i+2)4p$ (à, +3) 

1840 #$0i,16+j#4)=p# li, j+2)4p# li, j+ 
1)+11$(i, #3) 

1850 #$(i,25+j#4)=p$ li, j#1)+138 (à, j 

+2) 

1860 #8(i,26+j#4)=11$(i, j+1)+p# li, j 

+2)4p$ (à, +3) 

1870 #$(i,27+j#4)=p# li, j+1)#p$ (à, j+ 

2)+118(i, +3) 

1880 #$(i,28+j#4)=138(i, j+2)+p$ li, j DM 

+3) 

1890 #$0i,37+j#4)=1358(i, j+1)#p$(i, j 

+2) 

1900 #$(i,38+j#4)=p$ li, j+2)+p$(i, + DPG 


FIGURES NIVEAU 6 





1)+11$(i, +2) 
1910 #$(i,39+j#4)=118 (à, +2)4p$ li, ÿ DPL 
+3)+p$ (à, +2) 


1920 #$(1,40+j#4)=p$(i, j+2)+13$(1,j >DA 
+3) 

1930 NEXT:NEXT LB 
1940 RETURN >FH 
1950 ‘HE DYH 
HF 

1960 ‘### FIGURES NIVEAU 7 >YJ 
#4 

1970 ‘HIHI D YK 
#4 

1980 FOR i=1 TO 2:F0R j=0 TO 2 >VWY 


1990 #80i,1+j#4)=p8 à, +1)4p$ Ci, +2 DYL 
Mp$i, +1)4p$ Ci, +3) 

2000 #$(i,2+j#4)=p8 (à, j+2)#p$(i, j#1 
1#p$i, j+3)4p$ li, j#1) 

2010 #$0i,3+j#4)=p$ li, j+1)#p$ li, +2 VW 
ps li, i+1)4p$ (à, +3) 

2020 #$i,4+j#4)=p$ li, j+2)4p$ (à, #1 
Mp$li, +3)4p# li, j#1) 

2030 #$0i,13+j#4)=p$ (à, j+1)4pS Ci, j+ 
3)4p$(i, +1)4p$ (à, +2) 

2040 #$(i,14+j#4)=p$ li, j+3)4p# à, j+ 
L4p$ Ci, j+2)4p$ (à, j#1) 

2050 #$(i,15+j#4)=p$ (à, j+1)4p$(i, j+ 
3)4p$ Qi, j+1)4p$ (à, +2) 

2060 #$0i,16+jk4)=p# li, S#3)4p# li, jt D2L 
L4p$ li, j+2)4p$(i, #1) 

2070 #$(i,25+j#4)=p$ (à, j+1)+p$ Ci, j+ 
Dps Gi, +1)4p# li, +2) 

2080 #$(i,26+j#4)=p$ (à, j+2)4p$(i, j+ 
Lhip$ti, j+2)4p8(i, it) 

2090 #$(i,27+j#4)=p$ (à, +1)4p# li, + 
3)#p$ (à, #1)4p$ li, j+3) 

2100 #$(i,28+j#4)=p$ (à, j+3)4p$ li, j+ 
Lap$ti, j+3)#p$(i, #1) 

2110 #$i,37+j#4)=p$ li, j+1)4p$ li, jt DZL 
3)#p$ (à, #1)4p$ Ci, j+3) 

2120 #8(i,38+j#4)=p# li, j+3)4p$ Ci, j+ DZN 
L4p$ li, i+3)#p$ (à, #1) 

2130 #8(i,39+j#4)=p$ li, j#1)4p$ Ci, j+ DZN 
2)#p$ (à, #1)4p$ à, +2) 

2140 #8(i,40+j#4)=p$ (à, j+2)4p$0i, jt D2F 
1)4p$ li, j+2)#p$ li, #1) 
2150 NEXT:NEXT 

2160 RETURN 


HG 
>FC 


2170‘ HHHHHBHHHEHHHHEEHHEHEEE DYC 
#4 

2180 ‘### FIGURES NIVEAU 8.  >yD 
##4 . 

2190 ‘HN DYE 
ÉETE 


2200 FOR i=1 TO 2:FOR j=0 TO 2  ->WH 
2210 #8i,1+j#4)=p$ li, j+1)4p$ Ci, +3 DYN 
Mp$ Ci, +1)4p$ ti, +2) 
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2220 #5(i,2+j#4)=p# li, j+2)4p# (à, #1 DYZ 


#p$ ti, i+2)+p$ (à, +3) 


2230 #$(i,3+j#4)=p$ li, j+3)+p$li, j+2 DYC 
)+p$(i,j+3)+p$(i, j+1) 

2240 #$(1,4+j#4)=p$(i, j+i)+p$(i, j+3 >YE 
Hp$li, j+2)4p$ (à, j+3) 

2250 f$(i,13+j#4)=p$ li, j+1)+p$ li, j+ DJ 
2)+p$ Qi, j+i)+p$(i, j+3) 

2260 f$(i,14+j#4)=p$ li, j+2)+p$(i, j+ >2M 
3h4p$li, j+2)+p$ à, #1) 

2270 f$(i,19+j#4)=p$(i, j+3)+p$(i, j+ >2Q 
1+p$(i,j+3)+p$(i, j+2) 

2280 #8, 16+j#4)=p$ li, j+1)4p$ li, j+ 
3)+p$(i,j+2)+p$(i, j+1) 

2290 #8(i,25+j#4)=p8$ (à, j+3)4p$ (à, j+ DR 
L+p$ li, +214p$ (à, j#1) 

2300 f#(i,26+j#4)=p#(i, j+1)+p$ Ci, j+ >ZK 
2)+p$li,j+3)+p#$(i, j+2) 

2310 #$(1,27+j#4)=p#$(i, j+3)4p$(i, j+ >ZN 
L4p$ti, +214p$(i, +3) 

2320 #4 (i,28+j#4)=p$ li, j+2)+p$ (à, j+ 
3)4p$Ci,j+1)+p$(i, j+2) 

2230 #$(1,37+j#4)=p$(i, j+3)+p#$(i, j+ 
2)+p$(i,j+1)+p$(i, j+2) 

2240 #$(1,38+j#4)=p$(i, j+2)4p#$(i, + DIT 
1h+p$(i,j+2)+p$(i, j+3) 

2350 #$(1,39+j#4)=p$ (i, j+3)+p$(i, j+ >ZW 
2)+p#(i,j+3)+p$(i, j+1) 

2360 #$(1,40+j#4)=p$ li, j+1)+p$(i, j+ >2M 
3hp$ à, +1) #p$ li, +3) 


LA 


10 


?1Q 


2370 NEXT:NEXT LA 
2380 RETURN ?FG 
2390 HFHHHEHNEENEEHPBEPHEHHEHE DYG 
#44 
2400 ‘### AFFICHAGE FIGURES >X] 
##+ 
2410 * HET DÂK 
#4 
2420 BORDER 10+r:FOR i=0 TO 5:FOR j >CM 


=1 TO 4:LOCATE 4+i#6,1+j:PRINT f$(1 
s3+i#4):PEN 1:LOCATE 3+i#6,4: PRINT 

CHR$ (65+i):LOCATE 3+i#6,5:PRINT CHR 
$(243) :NEXT: SOUND 1,120-i#5,10,15,1 
:NEXT 

2430 FOR i=0 TO 5:FOR j=1 TO 4:LOCA >KL 
TE 4+i#6,6+j:PRINT f$(1,(j+1#4)+24) 
PEN 1:LOCATE 3+i#6,9:PRINT CHR#(71 
+i}:LOCATE 3+i#6,10:PRINT CHR$ (243) 
INEXTE SOUND 1,79=1#9, 10,15, 11NEXT 


2440 PAPERKS, 3:PEN#3, 2: CLS#S WD 
2450 RETURN FE 

2460 LOCATE 4, 14:PRINT"MODELE VX 
VOTRE DESSIN" 


2470 PEN 2:LOCATE 30,15:PRINT "Nive DLT 
au:"sr 
2480 LOCATE#2, 1, 1:PRINT#2, "Score: O0 >FH 


2490 LOCATE#2,1,3:PRINT#2," Sur: 0 >ED 


2500 IF t=5 THEN t=0:sc=0:SOUND 1,6 ?EV 
0,20,15,1:SOUND 1,47,20, 15, 1: SOUND 
1,40,30,15,1:FOR tt=0 TO SO0:NEXT:6 
OTO 420 
2510 HENRI YA 
HR 
2520 ‘### 
+++ 
2530 ‘HEART DYC 
HE 
2540 Hi=INT (RND#12) +1 >PH 
2550 t=t+1:RANDOMIZE TIME >VX 
2560 H2=INT (RND#12)+1:1F H2=H1 THEN >GB 
2560 
2570 PRINT#1, CHR$(22)+CHR$ (1) >X2 
2580 FOR i=1 TO 4:LOCATE#1,4,i:PRIN >VP 
T#1,f$(1, (hix4)-4+i}:LOCATE#1,4,i:P 
RINT#H, #$ (2, Ch2#4)-4+1) :NEXT: SOUND 
1,63,40,15,1 


AFFICHAGE MODELE »YB 


2590 ‘HIHI D Y] 

HE 

2600 ‘### REPONSE ET AFFICHAGE  }YA 
#4 

2610 ‘HIHI YE 

HE 

2620 FOR i=i TO 2 >BK 

2630 r$(i)=INKEVS: IF r$(i}="" THEN EH 

2630 

2640 R$(I)=UPPERS (R$ (I) ) >TU 

2650 IF r$(i)<"A" OR r$(i)}"L" THE AG 

N PRINT CHR$(7):G0T0 2630 

2660 GOSUB 2890 DYF 

2670 PEN#1,2:LOCATE#1,18,1#2:PRINT# ?LF 

1,r$(1} 

2680 NEXT >LH 


2690 LOCATE#,6,7:PRINT#1,"Confirne >PQ 
z O/N* 

2700 r$=INKEYS: IF r$="" THEN 2700 
2710 r$=UPPERS (r$):1F r$="0" THEN 2 
750 

2720 PRINT CHRS (22) +CHR$ (0) 

2730 IF r$="N" THEN SOUND 1,200, 120 
,15,1:PEN#1,0:FOR i=1 TO 2:LOCATE# 
,18, i#2:PRINT#1, CHRS (143) :NEXT:LOCA 
TE#,6,7:PRINTH1, STRING$ (13, 143) :60 
TO 2620 

2740 PEN#1,2:PRINT CHRS (22) +CHR$ (1) 


2750 ai=ASC(r$ (1) )-64: a2=ASC (r$ (2)) 
-64 

2760 FOR i=1 TO 4:LOCATE#1, 20, i:PRI 
NT#1,#$(1, (a1#4)-4+i) :LOCATE#1, 20, i 
:PRINTH1, #8 (2, (a2#4)-4+i):NEXT 

2770 LOCATE#?, 7, 3:PRINT#2, t 

2780 PRINT#1,CHR$ (22)+CHR$ (0) 


JWZ 
DXJ 





2790 IF (al=hi AND a2=h2)0R(a2=hi À DLC 
ND ai=h2} THEN 2800 ELSE GOTO 2810 
2800 SOUND 1,80,20,15,1:SOUND 1,60, >XP 
15,15,1:LOCATE #3,2, 1: PRINT#S, “JUST 
E":sc=sc+1:LOCATE#2,7,1:PRINT#2, sc: 
LOCATE#1,2,7:PRINT#1, "Appuyez sur 1 


= LagenHs AIS NAN CHA OUT, 0 
ä Dale :LHLL &DD10: Lois CLOMJ! GOT 


0 2500 
2810 60SUB 2880 
2820 SOUND 1,400,40,15,,,7:LOCATE # 
3,2, 1:PRINTHS, "Faux":PEN#1, 3: LOCATE 
#1,2,2:PRINT#1,CHR$ (64+h1) :LOCATE#1 
529 #4: PRINT#1,CHR$ (64+h2) : PEN#1, 1:L0 
CATE#1,2,7:PRINT#1, "Appuyez sur la 
barre":CALL &BB18:CLS#1:CLS#3:GOTO 
2500 
2830 
ÉPTES 
2840 
#4 
2850 
FFE 
2860 PLOT 0,0,1:DRAW 639,0:DRAW 639 >UQ 
5399: DRAW 0,399: DRAW 0,0:PLOT 2,2:D 
RAW 637,2:DRAW 637,397: DRAW 2,397:D 
RAW 2,2:RETURN 
2870 PLOT 0,220:DRAW 639,220:PLOT 0 DEL 
1222: DRAW 639,222: RETURN 
2880 PLOT 30,78,3:DRAW 50,78: DRAW 5 >TP 
0,130:DRAW 30,130: DRAW 30, 78:RETURN 


>YB 
PB 


AH HHPEHEHHBBEHHHEEHE 


‘#44 DESSIN CADRES 


APN 


2890 PLOT 286,78,3:DRAW 306, 78:DRAU AC 
306,130: DRAW 286, 130: DRAN 286, 7BR 
ETURN 
2900 
#44 
2910 
### 
2920 
#4 
2930 FOR i=1 TO 37 STEP 4 dE 
2940 FOR j=1 TO 24 STEP 1 >Q7 
2950 LOCATE i, j:PRINT #$(1,i MOD 12 ED 
#1) 

2960 SOUND 1, INT (RND#8)#5+60,5, 10,1 CZ 


NH )YD 
‘## PRESENTATION 3YE 


HN YF 


2970 NEXT:NEXT LG 
2980 FOR i=i TO 37 STEP 4 >RB 
2990 FOR j=i TO 24 STEP 1 ?QE 
3000 LOCATE i,j:PRINT #$(2, j+12) ?1Y 


3010 NEXT: INK 1, INT (RND#25)+1: INK 2 DEM 
, INT (RND#25) #1: INK 3, INT (RND#25) +1: 
SOUND 1, INT (RND48)+5+120,5, 15, 1:NEX 

T 

3020 q$(1)="11101110101010001111101 3KJ 
1101000111" 

3030 4$(2)="10001010101010001010101 DKC 
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0001000101" 

3040 q$(3)="10001010101010001010101 2KF 
1001000101" 

3050 q$(42="10001010101010001010101 >KG 
0001000101" 

3060 q$(5)="11101110111011101010101 >KH 
1101110111" 

3070 INK 0,0: INK 1,5:INK 2,20: INK 3 >DG 
51 

3080 FOR i=1 TO 5:FOR j=1 TO 33:IF 
MID$ (q$(i),j,1)="1" THEN PEN O:LOCA 

TE 3+j,10+i:PRINT CHR$ (143): SOUND 1 
,400,5,15,2:SOUND 1,0,10,0,0 

3090 NEXT:NEXT 

3100 FOR i=1 TO 30:INK 1, INT (RND#26 
}2 INK 2, INT (RND#26) : INK 3, INT (RND#2 
9) :SOUND 1,800,5,15, 1: SOUND 1,0,10, 
15:NEXT 

3110 INK O,0:INK 1,6:INK 2,11:INK 3 | 
,24 

3120 LOCATE 7,20:PRINT “JEU DES MEL } 

ANGES DE COULEURS" 

3130 FOR tt=0 TO SO00:NEXT 

3140 HAE 
He 

3150 
#4 

3160 
FETE 

3170 CLS:BORDER 13:PEN 1:G60SUB 2860 
tLOCATE 2,3:PRINT"Les couleurs se m 

elangent:" 

3180 p$(1,4)=p#(1,1):p$(2,4)=p$ (2,1 
) 

3190 FOR k=0 TO 2:FO0R i=i TO 4:FDR . 
j=1 TO 4:LOCATE 5+i,5+j+k#b: PRINT p 
$(1,k+1) :NEXT:NEXT:NEXT 

3200 FOR k=0 TO 2:FO0R i=i TO 4:FDR 
j=1 TO 4:LOCATE 13+i,5+j+k#6: PRINT 

p$(1,k+2 ):NEXT:NEXT:NEXT 

3210 FOR k=0 TO 2:FOR i=i TO 4:FOR 
j=1 TO 4:LOCATE 21+i,5+j+k#6: PRINT 

p$(i,k+1 ):LOCATE 21+1,5+j+k#6:PRIN 

T p$(2,k+2):NEXT:NEXT:NEXT 

3220 FOR i=0 TD 2:LOCATE 11,7+i#b:P >QX 

RINT “+":NEXT 

3230 FOR i=0 TD 2:LOCATE 19,7+i#b:P. 

RINT "=":NEXT 

3240 PEN 2:LOCATE 27,6: PRINT'"rouge+ }HQ 

bleu=":LOCATE 31,8:PRINT"violet":LO 

CATE 27,12:PRINT"bleut jaune=":LOCAT 

E 31,14:PRINT"vert":LOCATE 27, 18:PR 
INT" jaunetrouge=":LOCATE 31,20:PRIN 

T‘orange* 

3250 LOCATE 2,23:PRINT "Appuyez sur DAT 
une touche" 

3260 CALL &BB18:CLS: RETURN 


RC 


‘#4 EXPLICATIONS 


À HOPPER D YC 


DL 


}WX@ 





LD ELU 
ET COMMUNICATION 


EN FRAN 


A L'ETRANGER 


PLUS DE 60 JEUX 
. PASSES Al 


BANC D’ESS£L 
M1871. 6-20,00F 


| A 
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